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O AUTOR 

Jose Eduardo Maluf de Carvalho, 32 anos, arquiteto, atuando em Planejamento Ur- 
bano, na Secretaria Municipal de Planejamento de Sao Paulo e em projetos de edifi- 
cafoes e construgao civil em seu escritorio proprio, sentiu necessidade de agilizar 
seu trabalho particular, nas tarefas mais repetitivas do arquiteto, desde uma con- 
sulta as leis de zoneamento, que regem o uso e aproveitamento do solo no Munici- 
pio de Sao Paulo, ate as fases finais de detalhamento, quantifica 5 ao e custo de urn 
projeto de arquitetura. 


Para isso, adquiriu, como um curioso, em mar^o de 1982, um TK 82-C, e ime- 
diatamente conseguiu fazer deste pequeno micro uma poderosa ferramenta de tra¬ 
balho. 


Sentindo falta de uma melhor resolu 5 ao grafica, bem como de uma maior ca- 
pacidade de armazenamento, partiu para um micro que foi um caso de “amora pri- 
meira vista”. Era o ZX Spectrum da Sinclair. 

Desde setembro de 1983, o domfnio sobre essa maquina foi num crescente 
cada vez maior, incluindo ai os perifericos ZX Microdrive, que nada mais e que um 
micro acionador de cartuchos (em vez de discos) e a Interface One (de compatibili- 
za?ao com o Microdrive, saida RS 232 C e rede local). 

Trabalhando principalmente em linguagem Basic, com algumas rotinas em c6- 
digo de maquina, conseguiu elaborar um pacote de programas aplicativos para arqui¬ 
tetura, que vao desde a analise do zoneamento, otimizando a ocupa 9 ao do terreno 
definigao do programa do projeto de arquitetura, elaboragao da planta baixa, vegeta- 
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bao, detalhes construtivos, perspectivas, culminando com o orbamento e o cronogra- 
ma da obra. Ou seja, nao se sai do micro sem ter o projeto de arquitetura completo. 

Hoje, apos o lan^amento do TK 90X, da Microdigital, totalmente compativel 
com o Spectrum, e ate com algumas inova^oes e levando em considerable o inedi- 
tismo do seu trabalho, o autor fundou a empresa ARQUITRON INFORMATICA 
LTDA., de comdrcio e prestabao de servibos em informatica; juntamente com o Clu- 
be de Usuarios do TK 90, sem no entanto abandonar suas atividades no escritdrio 
de arquitetura. 

Mas nem por isso abandona os deliciosos mementos de lazer que tern com 
este grande parceiro de video games. 


BEM-VINDOS AO MUNDO DO PRIMEIRO MICRO PESSOAL 
EM CORES LANg ADO NO MUNDO!!! 
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IntrodupSo* 


Bern, leitor, aqui estamos nos juntos, nesse mundo cheio de surpresas agrada- 
veis e, na maioria dos casos, quase que totalmente desconhecidas, deste pequeno no- 
tavel, de potencial ilimitado, que e o TK 90X. 

Provavelmente voce e daquele tipo de pessoa que compra um computador co- 
mo um curioso (foi assim que eu comecei), sem saber exatamente se ele e adequado 
as suas necessidades (se e que voce sabe quais sao elas). 

Sem duvida alguma e isso que esta acontecendo nos grandes mercados mun- 
diais, com o advento da microinformatica, que introduziu na maior parte dos lares 
americanos, ingleseS, italianos, franceses etc., sem saber exatamente como funcio- 
nam e para que servem, essas maravilhas que sao os microcomputadores. 

Voce faz agendas telefonicas na sua residencia, faz cadastramentos diversos, 
faz receitas de bolos e uma infinidade de aplicapoes domesticas. So que ja imaginou 
uma dona-de-casa, ao fazer uma receita, e de repente, esquecer um trecho dela, ter 
que ligar toda a parafernalia eletronica, apos, evidentemente ter lavado as maos, pa¬ 
ra uma simples consulta? Ou, ent5o, se voce quiser procurar um telefone de um 
amigo, se o esqueceu, ter de ligar o computador, ligar a teve, ligar o cassete, carregar 
o programa, digitar o nome de quern voce quer o telefone? fi cansativo, muito mais 
que abrir uma simples cadernetinha de telefones! 


*NOTA: Todos os programas deste livro foram digitados e testados num TK 90X, de 48K de 
memdria RAM, n. 738/CQF/250/11015/6. 
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0 mercado externo esta exatamente nessa situa$So, em rela$So aos micros do- 
mesticos. Muitas firmas fabricantes de microcomputadores estao falindo, devido a 
guerra agressiva do capitalismo, que baixa at 6 rn'veis insustentaveis os pre§os de 
suas mercadorias. 

Nos estamos indo para o mesmo caminho. Computadores, custando os olhos 
da caxa, sao anunciados como “maquinas mdgicas” que fazem o que nenhuma outra 
faz. Dizem que o que e bom para os EUA e bom para o Brasil. Sera? 

Os computadores mais baratos sao vistos como maquinas apenas de “jogos 
eletronicos”, substituindo os videos games com grande vantagem. E o caso tipico 
desta mdquina, cuja potencialidade e totalmente desconhecida aqui no Brasil. 

Apenas a titulo de exemplo, somente na Inglaterra, existem cerca de 30 000 
escolas (!!!) que utilizam o micro ZX Spectrum da Sinclair, com a Interface One, 
que permite fazer uma rede local de computadores, interligando ate 64 maquinas, e 
cada uma com ate oito microdrives (fa$a as contas: 64 x 8 x 90K de capacidade de 
armazenamento de cada cartucho do microdrive resulta num total de cerca de 
46 000 Kbytes, ou 46Mb — 6 mem6ria de massa para ninguem colocar defeito). E, 
no mundo inteiro, sao mais de cinco milhoes de ZX Spectrum vendidos, em apenas 
tres anos de existeneia. 

Aqui, no Brasil, essa capacidade de se ligar em rede local e anunciada por qua- 
se todos os fabricantes com grande alarde, encarecendo o produto e servindo apenas 
a “grandes micros”. 

^ Eu, pelo que conhe 9 o deste micro, posso afirmar, categoricamente, que ele 
nao e absolutamente uma mdquina de jogos apenas. E muito, mas muito mais que 
isso. Ele e um dos microcomputadores de tecnologia de ponta mais desenvolvida do 
mundo inteiro, em rela^o ao seu microprocessador Z 80A, sendo o primeiro do 
mundo a apresentar alta resolu 9 ao grafica com cores! 

Bern, mas vamos ver oqueeeo que pode fazer esta maquina. E isto que eu 
pretendo neste livro. Com uma abordagem extremamente didatica, a maxima que 
eu pude atingir, voce ver i diversos programas demonstratives, jogos e utilitarios que 
exploram a sua capacidade total da linguagem Basic. 

E o que e a linguagem Basic? E a linguagem de alto nivel mais difundida, mais 
versatil e mais facil de ser entendiia por n6s, que a grande maioria de microcompu¬ 
tadores pessoais e dom^sticos utiliza por todo o mundo. Ela e relativamente nova, 
tendo sido criada em 1964, no Dartmouth College, nos EUA. 

A teoria dessa linguagem Basic 6 exatamente aquilo que voce leu no manual 
que acompanha o micro, faltando alguns truques e segredos aos quais se podera ter 
acesso, no decorrer deste livro. 


Quanto ao manual, como todo e qualquer manual de computador, ele nao e 
suficientemente elaborado para nos ensinar a explorar ao maximo o potencial da 
maquina. Ele nos da uma visao ampla do que pode ser feito com o micro, mas nao 
se aprofunda em detalhes. 

Eu espero que, ao comprar este livro, voce ja tenha explorado esse manual 
(mas que nao esteja satisfeito apenas com o que leu nele), e que tambem tenha en- 
tendido como funciona a linguagem Basic e suas aplica 9 oes. 

Voce nao vai encontrar informa 90 es repetidas neste livro, a partir do manual, 
ou seja, as informa 9 oes contidas la nao estao neste livro. O nivel de teoria e mais 
elevado do que no manual. 

Portanto, voce ja deve estar com o micro ligado, deve ter-se exercitado nos 
exemplos do manual, provavelmente ja fez o seu primeiro programa Basic, e esta 
ansioso por saber mais. Vamos la! 

Na minha opiniao, a computa 9 ao, ciencia como qualquer outra, e cerca de 
30% de teoria e o restante de pratica, aplica 9 ao. E, no manual, existe cerca de 90% 
dessa teoria e 10% da pratica. 

Portanto, para voce realmente aprender Basic, nao deve ter medo de pressio- 
nar qualquer tecla, nao importa se o manual diz o contrario, porque o maximo que 
pode acontecer e um “crash”, ou seja, o computador para de entender Basic. Voce 
devera entao desliga-lo e liga-lo novamente, que ele continuara inteiro a suadispo- 
si9ao. 

Vamos come 9 ar com uma pequena revisao da linguagem Basic. 

Voce ja viu, no manual, as palavras-chave que a linguagem Basic utilize. Quan- 
do o cursor, aquele pequeno quadradinho que aparece na tela da sua televisao, esta 
com a letra K, significa que ele esta aguardando uma palavra-chave de Basic. A par¬ 
tir disso, ele muda para a letra L, signiflcando que agora esta aguardando um valor 
literal. Basicamente, essa e a estrutura de uma linha de comandos em Basic: em mo- 
do imediato, voce diz a palavra-chave, em seguida o seu operando, ou seja, aquilo 
sobre o qual ele vai trabalhar e, finalmente, um indicador de final de comando, para 
que ele execute a sua ordem. E por isso que nos costumamos dizer que o computa¬ 
dor e uma “mdquina burra”, pois, alem de dar-lhe uma ordem, voce deve manda-lo 
executar aquela ordem! 

A diferen 9 a entre esse modo imediato, onde nos usamos o micro quase que 
como uma calculadora comum, e o modo programado e um indicador sobre a or¬ 
dem dos comandos, ou seja, o numero do comando, ou melhor, o numero da linha 
de programa em Basic. 
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Portanto, um programa em Basic e uma sequencia ordenada de instru^oes ou 
comandos nessa linguagem que vai dizer ao computador o que ele deve fazer com 
os nossos operandos, objetivando o nosso resultado. 

Nao se preocupe, pois a maquina coloca a numera 9 ao das linhas em ordem 
crescente automaticamente, apagando as coincidentes. 

A linha de programa pode ter mais de um comando, separados pelo indicador 
de final de comando (e nao final de linha), que e o simbolo : (dois pontos). 

Os numeros de linhas aceitaveis pelo TK 90X vao de 1 ate 9999, inclusive. 
Convem espagarmos esses numeros, para futuras inser^oes, quando das con^oes do 
programa (ninguem nunca ficou satisfeito com a primeira versao do seu programa). 

Com o programa feito, entao voce deve ordenar ao computador para que ele 
execute aquela sequencia de comandos. 

Esses comandos, basicamente, se dividem em: 

1 - Comandos de saida de dados; 

2 - Comandos de entrada de dados; 

3 - Comandos de atribuigao; 

4 - Comandos de controle e edi^ao; 

5 - Comandos de desvios de processamento; 

6 - Comandos de armazenamento; 

7 - Comandos condicionais e 

8 - Comandos graficos. 

Procure, a titulo de exercfcio, colocar numa folha a parte os diversos coman¬ 
dos de cada grupo citado, a partir do manual. 

Para que o computador possa entender as nossas ordens em uma linguagem de 
alto nivel, existe dentro dele um “dicionario”, ou seja, um interpretador que tra- 
duz as nossas ordens em instru?oes que o computador possa entender, em lingua¬ 
gem binaria, de drgitos 0 e 1, que e a linguagem do computador, dificilima de ser 
entendida por nos, mas com duas grandes vantagens sobre a linguagem Basic: eco- 
nomia de membria e maior rapidez de processamento (por nao precisar do inter- 
pretador). 

Portanto, a maneira usual de um computador executar um programa em 
Basic e interpreta-lo, comando por comando. A outra alternativa e compilar este 
programa, ou seja, atraves de um programa escrito em linguagem de maquina, cha- 
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mado compilador, o programa em linguagem de alto nivel e totalmente traduzido 
para a linguagem de mdquina, para que depois seja processado de uma vez, em se¬ 
quencia, ganhando velocidade de execu$ao. 

Portanto, arregace as mangas, ligue o seu pequeno notavel e maos a obra! 

Vamos, antes de iniciar o conteudo propriamente dito deste livro, exercitar 
alguns programas em Basic. 

Se voce ja carregou toda a fita de demonstrate que acompanha o micro, ja 
deve estar familiarizado com o teclado. Se ainda nao o fez, experimente, pois as li- 
9 oes sobre como manipular o teclado sao muito boas. 

Vamos entao ao treino de programas. 

Experimente digitar o programa n? 1, a seguir. 

Digite os algarismos 10 e repare que o cursor esta em K. 

Pressione entao a teclaP, para imprimir a palavra-chave daquela tecla, PRINT. 
0 cursor passou para L. Pressione SYMBOL SHIFT e junto a tecla P, outra vez. 
Agora foi impressa a aspa e o cursor continua em L. Digite qualquer nome, nao 
esquecendo que para se obter letras maiusculas deve-se pressionar CAPS SHIFT 
junto com a letra desejada. Nao se esque 9 a de fechar a aspa, mas, caso o tenha 
esquecido, o micro o avisara que ele entendeu aquela linha de programa (eviden- 
temente, apos voce ter digitado ENTER, para avisa-lo de que a sua linha termi- 
nou ali) ate o sinal de interroga 9 ao, e que, dali para a frente, algo esta estranho 
para ele. 

A linha 20 significa o comando SOUND 0,5 segundos e tonalidade 10. 

A linha 30 faz o processamento do programa ser desviado para a linha JO no- 
vamente, atraves do comando GOTO 10. 



Agora altere esse mesmo programa, para o seguinte: 



Observe a linha 10, onde foi introduzido outro sinal: 
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Mude novamente a linha 10 para: 



Voce sabe “mudar” essas linhas, nao sabe? 

Se nao, vamosla. 

Primeiramente digite, em modo direto, qualquer paiavxa-vnavc. 

Suponhamos que nao era essa palavra que voce queria digital. Voce, entao, 
devera deleta-la. Para isso, primeiramente, deve pressionar CAPS SHIFT e, em se- 
guida, a tecla 0, onde esta escrito em branco a palavra DELETE. Pronto, a pala- 
vra-chave foi apagada. 

Como fazer isso em modo programado? 

Voce digita uma linha de programa, e em seguida avisa ao micro que sua linha 
terminou, atraves do comando ENTER. Se a linha estiver absolutamente com a sin- 
taxe correta, ela e aceita pelo micro, e passa, para a parte superior da tela, o campo 
de programa. Para corrigi-la, primeiramente coloque o cursor indicador de linha cor- 
rente, aquele sfmbolo “>”, que deve estar imediatamente apos a ultima linha digi- 
tada, na linha que se quer corrigir, atraves da tecla 7, que tem sobre ela uma seta 
apontando para cima. E uma das quatro teclas cursoras do micro. Quando o cursor 
chegar ate a sua linha, voce entao deve traze-la para a area de ed^ao, que 6 a area 
inferior da tela, a fim de ser editada. Voce consegue isso pressionando CAPS SHIFT 
e a tecla 1, que tem escrito sobre ela a palavra-chave EDIT. 

Pronto, a linha de programa esta na parte inferior da tela. Agora, com outra 
tecla cursora, a 8, leve o cursor ate uma posi?ao apos o que voce vai “deletar”. No¬ 
vamente com CAPS SHIFT e a tecla 0 voce apaga o erro, e esta pronto para iritro- 
duzir a alteragao. 
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Agora, altere novamente a linha 10 do programa n? 1: 

10 PkINT ' J «Jo3 £ Ed U3 f d0 * 1 *' ■* 
-I r s p a r e n o s a p o s t r o ? £ s ~ 
a :0 BttP s b10 : REM estP s> 



E outra linha 10: 



Agora, altere as linhas 20 e 30 para: 



Quais sao as diferen 9 as? 

Com a fun^ao RND na linha 20, o computador passa a gerai’ diversos tons de 
notas musicals, na faixa de 0 ate 69, aleatoriamente, ou randomicamente. 

Na linha 30, a introdu^o do comando RUN mudou todo o programa. Isto 
porque este comando faz a inicializa^o da memoria, ou seja, limpa tudo o que la 
existe, inclusive alguma posi^ao de impressao, para come 9 ar tudo outra vez. 

Passemos agora para o programa n? 2, um pouco mais avan 9 ado: 
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50 LET c = i+ i 

70 HHl NT ‘ !'• -3 q U i ha .» I ,1 *2 H 0 3 ; 

: o c 2 te ra i c ano 3 11 
50 PRINT 
90 GO I 0 10 

Na linha 10, o computador vai imprimir a mensagem entre aspas e esperar que 
voce digite um valor alfanum^rico (observe as aspas, no canto inferior esquerdo da 
tela -eum lembrete do micro para voce), para que ele fa$a a associa$ao dessa serie 
de caracteres a variavel alfanumdrica de nome a$. 

Na linha 20, o mesmo raciocinio para uma variavel numerica. 

Na linha 30, ele imprime a serie “OLA” e a variavel alfanumerica a$. 

Na linha 40, existe uma condi 9 ao para que seja executada a alternativa de im¬ 
pressao: se o valor num^rico digitado na linha 20 satisfizer essa condi^ao, ou seja, a 
condi^ao passa a ser verdadeira, entao a alternativa sera executada. 

Na linha 50, outra condi^ao, de identico raciocinio da linha anterior. 

Na linha 60, foi feita uma atribu^ao de valores. Atribuiu-se a variavel de no¬ 
me c o dobro do valor digitado na linha 20. atraves da opera^o aritmetica da soma. 

Na linha 70, uma simples impressao de series junto com variaveis. 

Na linha 80, o micro pulara tres linhas, antes de executar o comando da linha 
90, que desvia o processamento do computador para a linha 10, ou a primeira linha 
do programa, mas nao faz a inicializa^ao da memoria, como o comando RUN. 

Agora, fa 9 a exatamente isso — a inicializa 9 ao da memoria, alterando a linha 
90 e introduzindo a linha 100. 



Experimente rodar esta versao do programa sem a linha 90 para ver o que 
acontece. Quase nao da tempo de se ver o que esta na tela. 


Essa e a fun$?o da pausa. Aguarde um instante. 

Agora, vamos “formatar” os dados de safda, ou seja, vamos alterar a posi?ao 
de impress5o das mensagens na tela, atraves da tabula?ao nas linhas 30 e 70, e a mu- 
dan§a de posi$ao das linhas 40 e 50, alterando a posi^o relativa a uma coluna e a 
uma linha. 

10 1 NHUT :! 0U 2 l 2 O £ 2 u H O TO 2 s: ; 

3 $ 

20 INPUi !! c. a sua i h a hp • i 
30 PRINT ThB 15 ; v: Q \ a n r s ± " " 

■40 It i <=30 THEN PRINT' P;t 5-10 
i 'yo ce a i nda 2 ,j0vern p0 is 1 2m s 
0 yi; " a n 0 s d 2 id a d 2 Sl 

p© .I\ i >30 I HuH PRINT hT 5,10; 


30 PhINj_ 

130 RUN 

Para que voce se acostume com as pos^Oes de impressao, introduza no com¬ 
putador o programa n? 3, a seguir: 



Observou o que acontece com esse programa? 

A linha 90 faz o desvio do processamento do programa para a linha 80, que 
possui uma mensagem de impressao sempre na mesma posi 9 ao, o que da a impressao 
de que o micro parou de trabalhar. 

Procure alterar, como exercicio, os valores dessa linha, incrementando-os ou 
decrementando-os. 

Mas, e se voce digitar um numero de linha ou de coluna maior que o permi- 
tido? Certamente o micro lhe devolvera uma mensagem de erro, nao aceitando esses 
valores. 
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Digite essa nova versafo do mesmo programa: 



Agora, passe para o programa n? 4. Digite-o e rode-o. 



Note, na linha 40, a cond^ao que examina se o numero e par ou nao. 

Experimente alterar a linha 80, de modo que ela nao apague o que ji existe 
na tela. 

Agora veja, no programa n? 5, a fun£ao RND sendo executada infinitas ve- 
zes. Maiores detalhes sobre essa fun^ao e esses numeros “aleatorios” serao dados 
mais tarde, em outro capftulo. Por enquanto, apenas treine a linguagem Basic. 



Experimente esta nova versao do mesmo programa, so que mais rapida. 



Introdugao 


XXIII 


E altere a linha 20, de modo que haja inicializa 5 ao da memoria: 



No proximo programa, de n? 6, esta uma sugestao para se fazer cartQes de 
cinco dezenas na LOTG, com os numeros que o micro fomecera. Experimente, 
quern sabe ele tern sorte! 

Note a presenga de outro comando, que denominamos LOOP atraves dos co- 
mandos FOR para abri-lo e NEXT para fecha-lo: 



Experimente o programa n? 7, que varia tons de notas musicais: 



Altere-o, introduzindo a linha 20,- para que ele seja processado infinitas vezes. 



Altere-o novamente, com a introdu§ao de outras tonalidades: 



E outras: 
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Passemos entao para o programa n? 8, que mostra o efeito dos comandos 
FLASH e INVERSE separadamente e depois, na outra versao, esses mesmos co¬ 
mandos juntos e flnalmente o comando BRIGHT. 

Note que nas tres versoes voce devera pressionar qualquer tecla, para que ele 
passe para a linha seguinte. 0 modo mais facil e pressionando-se somente ENTER, 
ou seja, uma serie vazia ou nula. 

Pressionando-se “s” o programa sera interrompido. 

Se nao houvesse essa condi^ao das linhas 20 e 40, como interromper um pro¬ 
grama que aceita ate a palavra STOP como serie, ou considera BREAK como um 
espa9o? Simples: basta apagar uma aspa da parte inferior da tela e, entao, atraves 
de SYMBOL SHIFT e tecla A, acionar o comando STOP, que agora funciona. 




38 





28 


Oh 


38 


INPUT 

PRINT 


_48 INhUT 
Oh 

5 0 R u N 


35: 1 r a $ = :! s 1! !HcM ST 

FLhSH 8 ; RT 8,8; :i TK 98 



18 P R i N ! i- L H 
8 : 8 ; !! TK 8^>: ;s 
28 INPUT a $: 
OP 

38 PRINT FLh■ 
8,8; !! TK S8X" 
48 INPUT a *• 


■H 1INUERSE I; RT 
IF a$ = i! s ;: THEN ST 
H 8; IN UERS E 8;RT 
IF a $ = i: s s< THEN ST 


18 H R1N i 

PH J.GH ! 

1 ; t L R S H 1 : 

IN 

VERSE 1;RT 

8,8.; :i TK 

o y * j 


£0 INHiJ i 
OP 

8 $ : IF 

= THEN 

fji 
.1 

38 PRINT 

BRIGHT 

0: FLH 5H 8 ; 

T r. i 

UERSE 8:RT 

8,8.; !: TK 

. 98X ;: 


48 INPUT 

a $ : IF 

3 $ = ‘ 5 S 1 ' I H P N 

i.r 

HP 





58 RUN 


Agora experimente o programa n? 9, que utiliza dois loops que costumamos 
chamar de “aninhados”, ou seja, um tern obrigatoriamente de estar totalmente 
contido dentro do outro. 



Digite esta nova versao do programa n? 9, onde o micro vai perguntar com 
quantas linhas e colunas voce quer que ele trabalhe e, al6m disso, mostra uma nova 
utilizagao do comando OVER 1, ou seja, imprimindo na mesma posi 9 ao, amesma 
serie, e resultando entao em nada, ou seja, apagando aquela mensagem impressa. 
Veriflque a velocidade da execu 9 ao deste comando, pois, comparativamente com a 
versao anterior, a mudan 9 a de velocidade e quase que imperceptivel. 



INPUT 

5! o !j a n t a s c o i u n a s :: ; c 

28 

INPUT 

;: Q u a n t a s L i n h a s :i ; i 

38 

r U H r = 

8 TO l 

48 

FOR 9 = 

8 ! 0 c 

58 

PRINT 

R ! f : 9 ; " TK 9 8 X 5! 0 U E R 

: RT 

58 

78 

f, g ; 
NEXT' 9 
NEXT f 

i K 9 8 X !! 


Neste programa, de n? 10, utilizamos uma matriz numerica de cinco valores. 
Digite-o para perceber, atraves das linhas 50 em diante, que aqueles valores. digita- 
dos no inicio agora estao guardados na memdria do micro, para que possamos 
acessa-los quando quisermos, a menos que se digite um comando RUN (lembra-se 
da inicializa 9 ao da memoria?), ou se desligue o micro, ou mesmo que o processa- 
mento passe outra vez pelo comando DIM, apagando entao os conteudos existentes 
e reservando espa 90 para novos conteudos. 
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t>0 FOh m=I TO p 
50 PRINT d Ut\) 

0 NcX'i Fu 


No programa seguinte, tambem sobre matrizes, de n? 11, criamos uma ma- 
triz alfanumgrica de tres elementos de comprimento 5. Repare, ao rodar o progra¬ 
ma, que qualquer comprimento de nome digitado superior a 5 e desprezado pelo 
micro. 



Q 0 p p p, 

100 NE XT 


Altere, entao, o comprimento dos elementos dessa matriz, conforme linha 20, 
da nova versao do mesmo programa. 

Repare uma novidade na linha 60: ela simplesmente imprime, na parte infe¬ 
rior da tela, qualquer mensagem que queiramos. (Maiores detalhes sobre fluxos e 
canais, em outro capitulo do livro.) 

Veja tambem que utilizamos PAUSE 0, que significa pausa por tempo infinito 
(nem tanto), ate que digitemos alguma tecla. 


E, para terminar esta introduce, o programa de n? 12, que mostra o funcio- 
namento do comando INKEY $, que le o teclado. 

10 PRINT si;RT l,0; ‘Tressione 

qi-i =■ ! an? r 1 £ C l 3 55 

20 PRINT INKEY $; 

30 GO j y 20 

Bern, espero que, com esta breve introdu^ao e revisao da linguagem Basic, 
voce tenha adquirido uma maior intimidade com o seu micro, e percebido que ele 
obedece sem reclamar a qualquer ordem que lhe e dada (desde que ele a entenda!). 

E assim que se aprende computa§ao: praticando, exercitando, sem medo de 
errar. No decorrer deste livro, procure entender mentalmente a execu^o dos pro- 
blemas que surgem, antes de digita-los. Facilita demais a tarefa de aprender. 

E, se voce quiser algo mais que a linguagem Basic, esta editor a lan 9 ara um 
livro sobre Linguagem de Maquina para este micro, desde mesmo autor, com exem- 
plos incriveis sobre a total capacidade desta pequena maquina maravilhosa. 


10 DIM d (3) 

20 DlM d $ (3,100 3 
30 FOR b=l to 3 

4.0 INPU i “Digit e um nome " ; d * \ 
b) 

50 NEXT_b 

R0 FH IN i . SI; RT 1,0 ; :i pr £ =. s i n ri e 
qua lque r t e c La 3S : Phuse 0 
:-*0 HR in i "‘Os n 0 m e s - s a 0 15 " 

50 FOR f=1 TO 3 
90 PRINT d$if) 

100 NEXT f 





















Capftulo I 


O que 6 o TK 90X 


E gratificante, ao se comprar um livro, abri-lo em uma pagina qualquer, ler 
um trecho, retomar, ler o capftulo anterior, ler o ultimo capftulo. . . e descobrir 
logo quem e o assassino. Com os computadores e um pouco diferente — como sao 
as maquinas mais logicas que existem, qualquer pessoa que queira entende-las deve 
come$ar, logicamente, pelo princfpio. 

Podemos descrever qualquer sistema de computa^o, sob tres aspectos dife- 
rentes. 

0 primeiro aspecto e relativo a descr^ao sucinta do sistema de um modo ge- 
ral, a partir de sua CPU e seus perifericos. 

O segundo aspecto refere-se ao hardware (partes ffsicas) do sistema propria- 
mente dito. 

0 terceiro aspecto e sobre o desempenho logico do micro. 


O SISTEMA 

0 microcomputador TK 90X e' uma pequena caixa preta, de plastico, medin- 
do 236mm de largura, por 146mm de profundidade e 44mm de altura. Na super- 
ffcie horizontal superior estao dispostas as quarenta teclas de um composto de sili¬ 
cone, com as legendas impressas pelo processo chamado hot-stamping, ou seja, 
silk screen a quente, para maior durabilidade, que compoe o seu teclado. 


l 
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Na traseira da caixa estao dispostos, da esquerda para a direita, o plug que 
conecta com a entrada da teve (plug da antena externa); o soquete de entrada que 
conecta com a saida do provador cassete; o soquete de saida que conecta com a 
entrada do gravador cassete; o plug de conexao para joysticks tipo Atari; e o slot de 
expansao da m£quina, onde se conectam diversos perifericos de entrada/safda, tais 
como uma impressora (ZX Printer, Alphacom 32 ou TK 5005), uma interface RS 
232, a interface de compatibilizagao com o microdrive, e fmalmente o plug 
de voltagem. 

A placa de circuitos, incluindo o microprocessador Z80 e outros componerites 
eletronicos, encontra-se dentro dessa caixa preta, tomando toda a sua dimensao, e e 
separada do teclado por dois cabos de ligag^o. 

Esse sistema pode ser visto esquematicamente na Figura 1. 



O HARDWARE (os componentes ffsicos) 

A placa de circuitos do TK 90X pode facilmente ser acessada, retirando-se os 
quatro parafusos inferiores que prendem a tampa, onde esta instalado o teclado, a 
parte inferior da caixa, onde se encontra a placa de circuitos. Se o seu micro estiver 
na garantia nao convem abri-lo, pois destruira o lacre da garantia, anulando-a. 

Se a curiosidade for muito grande* retire os parafusos, segurando as duas par¬ 
tes da caixa, para que nao se separem e, com o micro em posigao de funcionamento, 
levante o teclado muito vagarosamente, procurando nao desconectar os seus dois ca¬ 
bos de ligagao com a placa, pois sao muito frageis e suas pontas se desgastam muito 
facilmente. Estes cabos podem ser desconectados, puxando-os suavemente dos seus 
soquetes, mas procure nao fazedo: use duas hastes (canetas) de igual comprimento 
para sustentar a tampa, tal qual o capo de um carro. 

Os componentes principals da placa de circuito estao desenhados na Figura 2. 



Figura 2 - Placa de circuitos eletronicos e componentes principals do TK 9OX. 
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Cada um desses componentes principals sera descrito a seguir: 


- O MICROPROCESSADOR Z 80 

Este chip, muito conhecido entre os aficionados da informatica, visto que e 
o cora§2o de muitos sistemas que existem por af, 6 o mais importante do TK 90X 
e o mais sofisticado (tambem o mais complicado, em termos de c6digo de maquina) 
dos microprocessadores de 8 bits. 

Como microprocessador, tem capacidade para trabalhar como um “computa- 
dor , de uma maneira generica, capaz de executar instrufBes armazenadas (progra- 
ma). Os programas para o TK 90X, quaisquer que sejam eles, serao sempre conver- 
tidos intemamente em instru 9 oes em codigo de maquina do Z 80. 

No TK 90X, o “clock” (relogio medidor de tempo interno de execucao de 
instrufoes) 6 de 3,75 MHZ e a esta velocidade ele 6 capaz de processar cerca de 
900 000 das mais simples instru 9 0es em cddigo de maquina. E interessante notar 
que, a partir do momenta em que se liga a fonta de energia do micro, o seu micro¬ 
processador imediatamente come 9 a a funcionar, apesar de nao mostrar qualquer re- 
sultado. Ele simplesmente fica aguardando uma ordem. 


A ROM DE 16 KBYTES (ROM - READ ONLY MEMORY - OU MEMORIA 
APENASDE LEITURA) 


O programa em codigo de maquina que e normalmente executado pelo micro¬ 
processador Z 80 esta contido num unico chip de ROM, que manipula 198 kbits 
ou 16 kbytes de informa 9 ao. ’ 

Nestes 16 k de “programa monitor” do TK 90X, os aproximadamente primei- 
ros 7 k estao dedicados ao sistema operacional, os 8 k seguintes ao interpretador 
Basic e o k restante, ao gerador de caracteres. 


- A RAM (RANDOM ACCESS MEMORY - MEM0RIA DE ACESSO RAND0MI- 


Na versao standard de 16 k do TK 90X, existem oito chips de mem6ria RAM 
de 2 k cada, ou 16 kbits. 

Tres destes 8 chips formam o “arquivo da jmagem” ou mapeamento da me- 
moria da tela, e podem normalmente ser usados somente com este proposito. O 
quarto chip e dedicado a manipulaqao dos bytes dos atributos (cores de papel, tinta, 


J 


flash, bright etc.) das 768 posi 9 oes de caracteres da tela, e as variaveis do sistema. 
Um pouco mais de 8 k esta dispom'vel ao usuario na versao de 16 k. 

Para a RAM total de 48 k, sSo adicionados mais quatro chips de 8 k cada, ou 
64 kbits. Nesta mem6ria, estao disponfveis para o usuario um pouco mais de 40 k. 


- ala(l6gicade apoio) 

Este pode ser considerado como sendo um “grande chip feito de diversos pe- 
quenos chips”. E um dos chips conhecidos como “customizado”, ou seja, so serve 
para esse computador. Ele atua como um “centra de comunica 9 ao”, verificando se 
tudo o que o microprocessador requer ou ordena esta sendo efetuado; ele tambdm 
le a memdria para ver em que consiste a lmagem da teve, e envia os sinais apro- 
priados para a interface da teve. 


- MISTURADOR DE CORES 

Este chip recebe as informa?oes sobre cores da LA e as converte para os sinais' 
apropriados a serem enviados ao modulador VHF. O sinal produzido pelo modula- 
dor e ajustado para o canal 3. 

Em adi 9 ao a estes componentes principal existem ainda: a interface que 
produz som no alto-falente da teve, a interface para o gravador cassete j o dissipa- 
dor de calor; o regulador de voltagem, que converte a tensao de entrada em 5 volts 
absolutos, sem oscila 9 ao; alguns decodificadores de endere 9 os; e outros compo¬ 
nentes menores. 

A LOGICA do sistema 

Neste aspecto, todas as liga 9 oes entre os varios componentes internos do mi- 
cracomputador sao consideradas. Estas liga 9 0es possuem uma existencia real - sao 
“caminhos” impressos na placa de circuitos ou, eventualmente, fios de liga 9 ao. 

O microprocessador Z 80 pode gerar um endere 9 amento individual de ate 
65536 endere 9 os diferentes de. memdria (65536/1024 = 64 kb), de cada vez. No TK 
90X, versao 16 k, apenas os endere 9 os 0 a 32767 (32 kb, sendo 16 k de ROM e 
16 k de RAM) estao dispomveis. Na versao de 48 K, todos os endere 9 os sao utili- 
zados. 

No TK 90X, os enderegos sao produzidos na forma de 16 sinais binarios (bits 
- algarismos 0 e l). O endere 9 o 0 e, portanto, 00000000 00000000, e o endere 9 o 
65535 e 11111111 11111111. Isto porque o computador trabalha com o sistema 
numerico binario, com os algarismos 0 e 1. 
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Nao entendeu? Vamos ver: 

No nosso sistema decimal, temos que: 
1985 


HEXADECIMAL 

0 

1 

2 


DECIMAL 

0 

1 

2 



1 


3 

3 


„5xl0° 

= 5 x 1 = 5 

4 

4 


SxlO 1 

= 8x 10= 80 + 

5 

5 

J9xl0 

= 9 x 100= 900 

6 

6 

1x10® 

= 1 x 1000= 1000 

7 

7 



1985 

8 

8 




9 

9 

OU 



A 

10 

4096 


B 

11 




C 

12 


,,6x10° 

= 6 x 1 = 6 

D 

13 


9x10* 

= 9 x 10= 90 + 

E 

14 

JOxlO 2 

= 0 x 100= 0 

F 

15 

4x10 3 

= 4 x 1000 = 4000 






Portanto, para o valor decimal 255, temos em hexa FF e em binario 



4096 




Analogamente, no sistema binario, que utiliza somente os algarismos 0 e l[ou 
bits, temos para 1 byte (conjunto de 8 bits): 


mi mi 
I 

1x2° 
1X2 1 
lx2 2 
lx2 3 
lx2 4 
1x2 s 
1x2 s 
lx2 7 


= 1 x 1 = 1 

= 1 x 2= 2 

= 1 x 4 = 4 

= 1 x 8= 8 + 

= lx 16= 16 
= 1 x 32= 32 
= 1 x 64 = 64 
= 1 x 128= 128 

255 


Ou seja, 256 valores diferentes 
em 255. Portanto, 2 8 = 256 


para um byte, que comefam em 0 e terminam 


256 *256 = 2® *2® = 2 1 6 = 65536ou 111 11111 11111111 


Da mesma forma, no sistema hexadecimal, que utiliza os algarismos 0 a 9 para 
valores decimals de 0 a 9, e letras de A atd F para valores de 10 a 15, temos: 


FF 

1 0 

,,15x16° = 15 + 

15xl6 x = 240 

255 

O programa a seguir faz as conversoes automaticamente entre as bases numeri- 
cas decimal, binaria e hexadecimal. 
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Os enderefos sao gerados pelo microprocessador Z 80 e transportados pelo 
computador atraves das Vias de Endere$amento (Address Bus). Sao no total 16 vias, 
nas quais um endere?o pode ser especificado considerando-se uma via possuindo 
uma “alta” voltagem (5 volts), ou “baixa” voltagem (0 volts), ou ainda, respectiva- 
mente, 1, para alta voltagem e 0 para baixa voltagem. 

Enquanto as vias de enderefo possuem 16 contatos, as de dados (Data Bus) 
do TK 90X possuem somente oito contatos, pelo fato de o seu microprocessador 
ser de 8 bits. Portanto, qualquer dado que estiver sendo manipulado pelo sistema, 
seja ele uma instru^ao em codigo de m&quina, ou um valor qualquer, ou uma ins- 
tru$ao em Basic, deve ser considerado como sendo um numero decimal na faixa de 
0 a 255 (valor mdximo de 1 byte), ou na faixa b inaria de 00000000 ate 11111111. 

A figura abaixo mostra esquematicamente como as vias de endere?amento e 
as vias de dados sao interligadas aos outros componentes do TK 90X. 



Figura 3 * Vias de endere^amento e de dados do TK 9OX. 
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O TK 90X e fornecido pela Microdigital com urn programa monitor de 16K, 
iniciando no endere 90 0 e terminando no endere 90 16383, que proporciona ao 
usuario o emprego de um sistema operacional bem como de um interpretador Basic. 
Tambem e possivel o “abandono” deste programa monitor permitindo-se que o mi- 
croprocessador Z 80 execute um programa em codigo de maquina escrito pelo usua¬ 
rio. Em modo normal de ope^ao, o sistema operacional do TK 90X nao requer 
qualquer a 9 ao por parte do usuario, e todas as a 9 oes desse programa monitor sao 
“transparentes” para ele. 

Entretanto, isso acontece sempre que o TK 90X e ligado, mas nao em opera- 
9 ao; o seu interpretador Basic esta constantemente “lendo” o teclado, atraves de 
uma rotina do programa monitor, aguardando uma declara 9 ao em Basic do usuario, 
seja em modo imediato ou em modo programado. 


Note que de nenhuma maneira o microprocessador Z 80 executara um pro¬ 
grama em Basic - mas, sim o programa monitor, que e uma rotina em codigo de 
mdquina do Z 80. A unica exce 9 ao a este procedimento e quando o proprio usuario 
insere no micro uma rotina em codigo de maquina. 

O mapeamento da memdria do TK 90X, versoes 16K e 48K, e mostrado es- 
quematicamente na Figura 4 e cada uma dessas areas sera discutida a seguir. 

Nota: A partir daqui, todos os endere 9 os que contiverem apenas algarismos serao 
da base decimal; se contiverem apos os algarismos a letra “h” serao da base hexa¬ 
decimal, e se contiverem a letra “b” serao da base binaria. 


- AREA DE ROM 

Os 16K de ROM contem o sistema operacional, o interpretador Basic e o gera- 
dor de caracteres, ocupando os endere 9 os de 0 a 16383, ou 0000 a 3FFFh. Como 
em qualquer microcomputador baseado no Z 80, o inicio do programa em codigo 
de m&quina esta no endere 9 o 0. 


“ AREA DE MAPEAMENTO DA MEMORIA DA TELA — ARQUIVO DA IMA- 
GEM 

Os 6K de mem6ria, do endere 90 16384 ate 22527, ou 4000 a 57FFh, formam 
a area de alta resolu 9 ao grafica da tela. E importanfe notar que esta area esta fixada 
nessa dimensao pelo hardware do TK 90X, e nao pode ser alterada por intermedio 
do software. 
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Existe uma rela?ao de uffl para um entre todos os bits desta area de memoria 
e os pixeis (picture elements — menor ponto de impressao) que aparecem na tela, e 
0 cfilculo seguinte mostra que o numero de bits em 6 K de memoria e igual ao mime- 
ro de pix&s que podem ser mostrados na tela. 

Numero de bytes em 6 K de membria = 1024 x 6 - 6144 

Numero de bits em 6 K de membria = 6144 x 8 = 49152 

Numero de pixeis em 32 colunas por 24 
linhas da tela, com 64 pixeis por caractere 

(matriz de 8 x 8 ) = 32 x 24 x 64 - 49152 

Agora vamos ver isso em termos praticos, ou seja, como sao dispostos todos 
esses elementos na tela. (Aguarde mais um pouco — logo ligaremos o computa- 
dor.,.) 

Inicialmente, vamos considerar a tela da teve dividida em tres blocos horizon¬ 
tal iguais. 0 bloco mais alto, come 9 ando na linha 0 e terminando na linha 7 e pro- 
duzido atraves dos conteudos dos endere 9 os 16384 a 18431, ou 4000 a 47FFh. 0 
bloco central, das linhas 8 a 15, utiliza os conteudos dos enderefos 18432 a 20479, 
ou 4800 a 4FFFh; o bloco inferior, ou seja, o restante da tela do TK 90X, das li¬ 
nhas 16 a 23, utiliza os enderefos 20480 a 22527, ou 5000 a 57FFh. 

Preste aten 9 ao nos numeros em hexadecimal, que sugerem uma facil manipu¬ 
late do arquivo de imagem. Vamos analisar o bloco superior (e, por analogia, os 
outros dois blocos). 

Cada posigao PRINT necessita de 8 x 8 bits (64); e ha 32 dessas posi 9 oes em 
cada linha da tela (32d = 20h). Por outro lado, cada bloco da tela tern 32 x 8 x 8 
= 2048 bytes, que em hexadecimal equivale a 0800h. Vimos que os bytes corres- 
pondem a ordem: todos os primeiros bytes do primeiro bloco, os segundos, os ter- 
ceiros etc., o que nos da um salto de 7! Isso significa, por exemplo, que o primeiro 
byte da primeira posi 9 ao PRINT da tela dista 32 x 8 = 256, ou OlOOh, do segundo. 

Conclusao: 

- Para cada pos^ao PRINT, o primeiro byte dista dos seguintes, um multi- 
plode OlOOh. 

- Um byte de uma pos^ao PRINT dista do seu byte analogo na pos^ao 
PRINT imediatamente abaixo ou acima, num mesmo bloco, de OlOOh. 

— Um byte de um bloco da tela dista do byte com a mesma posi^ao relativa 
noutro bloco, de 0800h, ou 1600h, dependendo do bloco de referenda e o bloco a 
que se refere. 


Se voce ja fez algumas experiences em Basic com seu TK 90X e gostou, nao 
imagina o quanto isto pode ser util em programas de manipula^ao de imagens, tan- 
to em Basic como principalmente em Assembler. 


- AREA DE ATRIBUTOS 

O arquivo de imagens possui ainda 768 areas de caracteres, que vao do endere- 
90 22528 a 23295, ou 5800 a 5 AFFh, onde cada uma delas content os codigos para 
cor de papel, cor da tinta, flash e bright, e sao usados para armazenar valores que 
determinam os atributos dos 768 caracteres que podem ser impressos na tela. 

Os valores (menores que 255) dos atributos podem ser considerados a partir 
da expressao: 

ATTR (lip., col.) = INK + PAPER * 8 + BRIGHT * 64 + FLASH * 128 
Essa fun 9 ao ATTR (lin., col.) e equivalente a PEEK (22/528 + 32 * lin. + col.) 

Ou seja, nos bytes dos atributos, os bits 0, 1 e 2 determinam a cor da tinta; 
os bits 3 , 4 e 5 determinam a cor do papel; o bit 6 , se a pos^ao esta em modo 
bright ou nao, e o bit 7, se esta em modo flash ou nao. 

Por exemplo: INK azul =1. 1 

PAPER branco = 7 (7 x 8 = 56) 56 

BRIGHT 0 =0. 0 

FLASH 1 =1(1x128) 128 

185 

A seguir, uma tabela de todos valores possiveis para os atributos de qualquer 
pos^ao. 


TABELA DE ATRIBUTOS 


PAPER 

INK 

MODO 


preto 

blue 

red 

mag. 

green 

cyan 

yell. 

white 



0 

1 

2 

3 

4 

5 

6 

7 

normal 

BLACK 

64 

65 

66 

67 

68 

69 

70 

71 

bright 

128 

129 

130 

131 

132 

133 

134 

135 

flash 


192 

193 

194 

195 

196 

197 

198 

199 

bright + flash 


8 

9 

10 

11 

12 

13 

14 

15 

normal 

BLUE 

72 

73 

74 

75 

76 

77 

78 

79 

bright 

136 

137 

138 

139 

140 

141 

142 

143 

flash 


200 

201 

202 

203 

204 

205 

206 

207 

bright + flash 
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RED 

16 

80 

144 

208 

17 

81 

145 

209 

18 

82 

146 

210 

19 

83 

147 

211 

20 

84 

148 

212 

21 

85 

149 

213 

22 

86 

150 

214 

23 

87 

151 

215 

normal 

bright 

flash 

bright + flash 

COR CODIGO BINARIO VERTICES ACESOS 

Black 0 000 

Blue 1 001 Blue 

MAGENTA 

24 

88 

152 

216 

25 

89 

153 

217 

26 

90 

154 

218 

27 

91 

155 

219 

28 

92 

156 

220 

29 

93 

157 

221 

30 

94 

158 

222 

31 

95 

159 

223 

normal 

bright 

flash 

bright + flash 

Red 2 010 Red 

Magenta 3 011 Red Blue 

Green 4 100 Green 

Cyan 5 101 Green Blue 

GREEN 

32 

96 

160 

224 

33 

97 

161 

225 

34 

98 

162 

226 

35 

99 

163 

227 

36 

100 

164 

228 

37 

101 

165 

229 

38 

102 

166 

230 

39 

103 

167 

231 

normal 

bright 

flash 

bright + flash 

Yellow 6 110 Green Red 

White 7 111 Green Red Blue 

Para os interessados, at esta uma boa dica para se obter mais de 8 cores do 
nosso TK 90X. 

- BUFFER DA IMPRESSORA 

Os endereijos entre 23296 e 23551, ou 5B00 a 5BFFh sao usados como o 
buffer da impressora (ZX Printer ou Alphacom 32 ou Timex 2040). Estes 256 
bytes sao suficientes para armazenar os 32 caracteres em sua forma de alta resohi- 
fao, os primeiros 32 bytes armazenarao os bits da primeira linha dos caracteres, os 
proximos 32 bytes armazenarao os bits da segunda linha, e assim por diante. 

Se nao houver impressora ligada ao seu micro, esta area pode ser usada como 
area de armazenamento de rotinasem codigo de maquina, elaboradas pelo usuario... 
(boa dica essa!). Nao ha interference com qualquer programa que esteja no micro, 

CYAN 

40 

104 

168 

232 

41 

105 

169 

233 

42 

106 

170 

234 

43 

107 

171 

235 

44 

108 

172 

236 

45 
109 
' 173 
237 

46 

110 

174 

238 

47 

1 111 
175 
239 

normal 

bright 

flash 

bright + flash 

YELLOW 

48 

112 

176 

240 

49 

113 

177 

241 

50 

114 

178 

242 

51 

115 

179 

243 

52 

116 

180 

244 

53 

117 

181 

245 

54 

118 

182 

246 

55 

119 

183 

247 

normal 

bright 

flash 

bright + flash 

WHITE 

56 

120 

184 

248 

57 

121 

185 

249 

58 

122 

186 

250 

59 

123 

187 

251 

60 

124 

188 

252 

61 

125 

189 

253 

62 

126 

190 

254 

63 

127 

191 

255 

normal 

bright 

flash 

bright + flash 


mesmo que ele ocupe toda a memoria. 


Podemos imaginar cada pixel da tela da televMo (colorida) como sendo um 
pequeno triangulo eqxiilatero, cujos vertices sao iluminados. Para cada vertice ha um 
pixel vermelho, um azul e um verde, e o arquivo de atributos 6 usado para contro- 
lar a ilumina 9 ao (acesa ou nao) destas tres cores diferentes. 0 arquivo da imagem 
vai indicar se um determinado pixel deve ser plotado com uma cor de tinta em par¬ 
ticular. Os tres bits mais baixos (0,1 e 2) do valor do atributo daquela area sao usa- 
dos para decidir quais vertices do nosso triangulo imaginario, o verde, o azul ou o 
vermelho, devem ser acesos. Nossos olhos contem apenas tres tipos de sensores de 
cores (verde, vermelho e azul). Nosso cerebro recebe sinal dos tres vertices coloridos 
e combina-os em um simples pixel de cor composta. Por exemplo, se os tres ultimos 
bits de atributo sao 111, equivalente a cor 7,noste'mosverde + azul + vermelho,o 
que corresponde & luz branca. Os outros codigos de cores, quando escritos na forma 
binaria, podem ser interpretados da seguinte forma: 


- VARIAVEIS DE SISTEMA 

As 182 posi§5es de membria entre 23552 e 23733, ou 5C00 a 5CB5h, arma- 
zenam as diferentes variaveis do sistema do TK 90X. Se estiver conectado ao seu mi¬ 
cro uma Interface One da Sinclair, ou um microdrive, havera uma amplia$ao desta 
area, com o surgimento de novas variaveis de sistema que cuidarao exclusivamente 
desses perifdricos. No Capitulo 3, estas variaveis serao melhor estudadas. 

- MAPEAMENTO DO MICRODRIVE 

Esta area da membria come§a no endere§o 23734, ou 5CB6h, e tern apenas 
uma existencia teorica na versao standard do TK 90X, ou seja, e uma area que nao e 
usada com esse propbsito, a menos que a ele seja ligado ufii microdrive. 
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Sem o periferico, esta area tambdm pode ser usada para armazenar rotinas em 
cddigo de maquina elaboradas pelo usuario. 


- AREA DE INFORMAgAo DE CANAIS 

Esta area especial de memoria tem im'cio no endere?o apontado pela variavel 
de sistema CHCADD, armazenada nos endere 9 os 23631 e 23632, ou 5C4F e 5C50h. 
Esta area tem tamanho variavel, mas termina num enderejo que armazena um mar- 
cador final de valor 128 ou 80h. 

Na versao-padrao do TK 90X, ou seja, o micro sem perifericos conectados, 
existem detalhes de entrada/safda para quatro canais. Estes canais sao: 

- Canal “K” (palavra-chave) - Permite entradas via teclado e safdas para a 
parte inferior da tela. 

- Canal “S” (screen) - Nao permite entradas, mas somente safdas normais 
para a tela. 

- Canal “R” (RS 232) - Tambem nao permite entradas, mas permite safdas 
para a parte inferior da tela. 0 tamanho desta area de video pode ser expandido, se 
necessario. 

- Canal “P” (Printer) - Tambem nao permite entrada, mas somente safda 
para a impressora, via slot traseiro. 

As informafoes de canais consistem, por canal, em 5 bytes de dados. Estes by¬ 
tes fornecem o endere 90 da rotina de safda, que toma dois bytes, o endere 90 da ro- 
tina de entrada, que toma outros dois bytes, e o nome do arquivo, que € um simples 
codigo da letra correspondente. 

Como existem quatro canais-padrao e um indicador de final, area de in- 
forma 9 ao de canais no TK 90X standard ocupa os 21 endere 9 os entre 23734 e 
23754, ou 5CB6 e 5CCAh. 

Os percursos ou caminhos que os dados percorrem para chegar ou vir destes 
canais sao chamados de fluxo. Associados a estes quatro canais-padrao existem qua¬ 
tro fluxos: 

Fluxo # 0 - Imprime dados na parte inferior da tela que 

Fluxo # 1 - sao lidos do teclado. 

Fluxo # 2 - Escreve dados na parte superior da tela, mas nao pode ler dados. 

Fluxo # 3 - Envia dados de safda para a impressora, mas tambem nao le dados. 


Cada instru 9 ao de entrada/safda de dados usa automaticamente um destes flu¬ 
xos. 0 comando PRINT usa o fluxo #2 e o comando LPRINT usa o fluxo #3. 

Portanto, PRINT “TK 90X’’ e uma abreviacao de PRINT # 2; “TK 90X”. 

Se voce escrever LPRINT “TK 90X”, o micro manda a mensagem para a im¬ 
pressora; mas, se voce digitar LPRINT # 2; “TK 90X”, esta mensagem e desviada 
para a tela (isso funciona com os diversos comandos de safda, tais como LIST, 
LLIST etc.). 

Analogamente, se voce escrever PRINT #1; AT 0,0; “TK 90X” o micro impri- 
mird a mensagemnalinhaO, coluna 0, da parte inferior da tela (ou seja, a partir da li- 
nha 23). Experimente, pois isto e muito interessante na impressao de mensagens, 
sem interferir no arquivo de imagens! (0 que deveria ter sido feito com o comando 
TRACE.) 


- AREA DEPROGRAMAS BASIC 

Esta area da memOria armazena as linhas de programas em Basic, se existirem. 
0 seu tamanho depende justamente de quantas linhas existirem. 

O infcio da area de programa e sempre dado pelo valor armazenado na varia¬ 
vel de sistema PROGBAS, que ocupa os endere 90 S 23635 e 23636, ou 5C53 e 
5C54h. 

Note que, na versao standard do TK 90X, a variavel de sistema PROGBAS vai 
indicar que esta area de programas Basic come9a no endere9o 23755, ou SCCBh, e 
isto sempre vai acontecer, a menos que haja um microdrive conectado ao micro, ou 
seja, a area de mapeamento do microdrive esteja sendo usada ou endere 90 s extras 
tenham sido reservados para informa95es adicionais de canais. 

Na area de programas Basic, as linhas sao armazenadas no seguinte formato; 

Os primeiros dois bytes de qualquer linha armazenam o seu niimero, sendo o 
primeiro byte o mais significativo, e o outro, o menos significativo. 

0 terceiro e o quarto bytes armazenam o comprimento da linha. AqUi, d byte 
menos significativo vem antes do byte mais significativo. 0 comprimento da linha 
significa o niimero de bytes, a partir do quinto byte ate o byte final, 6 ENTER (in¬ 
dicador de final de linha), inclusive. 

Agora come 9 a a linha de Basic propriamente dita. Os codigos do TK 90X s3o 
usados para sfmbolos, palavras-chave, outros caracteres, e os cOdigos ASCII para 
caracteres alfanumbricos standard. 
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0 ultimo byte de qualquer linha e sempre o caractere ENTER. 

Dentro de uma linha em Basic, mhltiplas declarafbes sao separadas entre si 
por dois pontos, caractere 58, ou 3AH. Note que se numa linha Basic existir um nli- 
mero, em decimal, ele sera armazenado em caracteres ASCII e seguido pelo caracte¬ 
re NUMERO - codigo 14, ou OEh, e em seguida forma de ponto flutuante para nu- 
meros quaisquer ou a forma inteira para numeros inteiros da faixa -65535 a +65535, 
onde, em ambos os casos, s5o consumidos 5 bytes. Isto significa que sao reservados 
6 bytes de RAM para cada numero decimal que estiver incluido num programa 
Basic!!! 

0 programa-demonstra^o a seguir mostra o seu proprio conteudo armazena¬ 
do na area de programas. 



23755 

NOTAQAO DE NClMERO 
EM PONTO FLUTUANTE 


1NDICA NUMERO 


-- 9 9 

J. -* 93x256 = 23803 

? 23817 


O que 6 o TK 90X 19 



- AREADE VARIAVEIS 

O enderejo inicial desta area que armazena as variaveis correntes de um pro¬ 
grama Basic e sempre dado pelo valor contido na variavel de sistema VARADD, 
que ocupa os endere$os 23627 e 23628, ou 5C4B e 5C4Ch. 

No TK 90X, o inicio dessa area nao vai mudar durante a execu^o de um pro¬ 
grama Basic, mas sim quando nela for introduzida uma nova variavel. 

0 ultimo endere?o desta area sempre contem o marcador de final de area, ca¬ 
ractere 128 ou 80h. 

O programa a seguir mostra o conteudo da area de variaveis, que contem ape- 
nas a variavel de controle do loop. 

Prograrna-denionstiacao da area de variaveis: 
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w > KRM. NHU DIG I i c RS LINHAS RE 
. M - oUfltSN i E R L.IMHR 10 

l REM PRIMSIRQ 0IG1TE EM MODH 
DIRETO: 

3 _REM PRINT PEEK. 23627+258#PE 

5'REM 0 RE5ULTRD0 SERA 23818 
4. hcM WUE, POR SUP uet e n up 
rPS XNlCIRL DR URRIRUEL DE CONTR 
<H > DU LOOP 


5 REM 

_ IS l-OR A =23304 

fi; i RB 9.; REEK ri,;TA3 15;CHRs pffk 

H r-.j p y T* Q 


K 1 !'’•! ! 


5C64h, e vai at6 o enderego apontado pela variavel de sistema APSPFEE, de ende¬ 
regos 23653 e 23654, ou 5C65 e 5C66h. 

Esta area £ usada para armazenar os numeros em ponto flutuante em cinco 
bytes e quando manipula cadeias de caracteres utiliza grupos de cinco bytes como 
parametros delas. 

A manipulagao desta pilha de calculo e feita sob a forma conhecida como 
“LIFO”, do ingles “Last-in First-out”, ou seja, o ultimo valor depositado na pilha £ 
o primeiro a ser retirado. 


- Area de ediqao de linhas 

O inicio desta area que armazena a linha Basic que esta sendo digitada, ou edi- 
tada, £ sempre dado pelo valor armazenado na variavel de sistema INADD, que ocu- 
pa os enderegos 23641 e 23642, ou 5C59 e 5C5ah. 

Quando a parte inferior da tela mostra apenas o cursor intermitente, a area 
de edigao de linhas tern tres bytes reservados para ela. 0 primeiro, cujo enderego e 
dado pelo coriteudo da variavel de sistema CURADD, armazena urn caractere 
ENTER, e o segundo armazena um marcador de final, caractere 128, ou 80h. 

Os caracteres digitados a partir do teclado sao, entao, transferidos para esta 
area, que e expandida, para arniazena-los, 

Um procedimento similar e obtido quando se digita a tecla EDIT (CAPS 
SHIFT e tecla 1), para corrigir uma linha de programa. Em primeiro lugar, a area 
de edigao £ expandida para o comprimento igual ao da linha a ser editada. Entao 
esta linha e copiada sob re o conteudo anterior da area. 


- ESPAQO LIVRE 

A area de memdria entre a pilha de calculo e a pilha da maquina representa a 
quantidade de memdria que e disponivel ao usuario. Na versao standard do TK 
90X existem nominalmente 8839 enderegos nesta area quando se liga o compu- 
tador. Para a versao de 48K de RAM existem esses 8839 mais os adicionais 32K. 
Entretanto, e intetessante notar que o valor mais baixo aceitavel para CLEAR £ 
23821, que traz a RAMTOP 8878 bytes para baixo, ou na RAM de 48K, 8878 
mais 32K (41646K). 

- Area dapilha da mAquina 

O microprocessador Z 80 deve ter uma area de trabalho disponivel apenas 
para ele, chamada.de pilha da maquina, onde ele vai manipular valores dos progra- 
mas armazenados na memdria. 


- INPUT DADOS E AREA DE TRABALHO TEMPORARIO 

Esta drea da memdria e usada para muitos propdsitos, como, por exemplo, 
dados de entrada, concatenagSo de cadeia de caracteres etc. 0 enderego inicial da 
area £ dado pelo valor armazenado na variavel de sistema WORKPT, de enderegos 
23649 e 23650, ou 5C61 e 5C62h. Quando se faz necessario uma maior area de tra¬ 
balho, esta area e expandida, Apos o uso, ela e entSo esvaziada. 

•= Area da pilha de calculo 

Esta £ uma area muito importante da memdria e comega no enderego aponta¬ 
do pela variavel de sistema STKCEND, de enderegos 23651 e 23652, ou 5C63 e 


- Area DA PILHA DE GO SUB 

Sempre que existir um loop de GO SUB, o numero da linha desse loop sera 
armazenado nesta area. 

Cada numero de linha de GO SUB requer tres enderegos. 0 mais alto arma¬ 
zena o numero da declarag3o dentro de uma linha de programa Basic, para onde o 
retorno devera ser feito. 0 proximo enderego armazena a parte menos significativa 
do niimero da linha de programa, e o ultimo armazena a parte mais significativa des¬ 
se numero. 

A variavel de sistema RAMTOP, que ocupa os enderegos 23730 e 23731 ou 
5CB2 e 5CB3h, armazena o enderego que contem o valor 62, considerado como 
sendo o ultimo enderego da area de Basic. 
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~ AREA DE DEFSMI^AO DE GRAFICOS DO USUARIO 

Os ultimos 168 enderecos da mem6ria RAM do TK 90X sao reservados para 
aimazenar as representafoes dos bits dos caracteres graficos definidos pelo usuario, 
a menos que tenha sido invadida pelo sistema Basic, quer pela modificafao de ende- 
refos, atraves do uso de CLEAR, ou por um programa Basic muito extenso. 

Como parte do procedimento de inicializagao do TK 90X, a representacao bit 
a bit das letras de “A” ate “U” e copiada nesta area. 0 usuario, ao definir alguns ou 
todos os 21 caracteres graficos, muda esta representa 9 ao. 

0 ultimo enderego da memdria e sempre fornecido pela variavel de sistema 
MEM A VLB, que ocupa os enderegos 23732 e 23733, ou 5CB4 e 5CB5h. 

Na versao de 16K do TK 90X, este endere<jo deve ser 32767, e na de 48K 
deve ser 65535, valor obtido pela expressao Basic, em modo direto: 

PRINT PEEK 23732 + 256 * PEEK 23733 


Capi'tulo II 


A LINGUAGEM BASIC - COMAN DOS E FUNQOES 


Como citei na Introdusao, espero que voce ja tenha adquirido no95es de pro- 
grama 9 ao em Basic, e possua uma certa familiaridade com sens comandos e fun95es. 

Neste capftulo, serao mencionadas todas as declara 9 oes e fungoes do TK 90X, 
com assuntos novos, que nao foram citados no manual da m&quina. 

O Interpretador Basic do TK 90X standard reconhece cerca de cinquenta co¬ 
mandos diferentes e trinta e tres fun 9 oes. Cada um deles sera discutido neste capi- 
tulo, com alguns exemplos praticos. Eles estSo organizados em ordem alfabetica, 
para facilitar a sua consulta. 

OS COMANDOS BASIC 


- BORDER M 

Existem no total oito cores disponiveis para a area da borda da tela que o TK 
90X utiliza. A faixa de numeros (m) inteiros vai de 0 a 7. Entretanto (m) e arredon- 
dado e a verdadeira faixa de numeros aceitaveis come 9 a em -0,5 e vai ate 7,49. 

(m) pode tambem ser uma expressao cujo resultado se situe dentro da faixa 
especificada. 

0 efeito do comando BORDER m e o de enviar um sinal OUT para a porta 
254, e isto pode ser mostrado atraves da linha: 


23 
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OUT 254,m (onde m-2 resulta borda vermelha) 

Mas, OUT e BORDER sao muito diferentes. A cor assumida pela area da bor- 

3 a d ° C ° mand0 0UT > 6 uma cor “P r °vis6ri a ”, enquanto um co- 

mando BORDER muda para uma cor “permanente”, com o cddigo dessa cor sendo 
armazenado na variavel de sistema BORCLR, de enderepo 23624, ou 5C48h. 

Esse efeito pode ser mostrado da seguinte maneira: • 

Digite BORDER 2 e ENTER. 

A cor da borda passara para vermelho. 

Entao digite OUT 254,6 e ENTER. 

da borda passara > temporariamente, para amarelo, mas se voce pressio- 
nar ENTER novamente a cor da borda voltara para vermelho, a cor permanente 
Note, tambem, como BORCLR manipula a cor do papel na parte inferior da tela. 

Experimente digitar este programa: 

10 POKE 23624, RND *255 
20 OUT 254, RND * 7 
30 RUN 

E veja como e interessante o resultado. 

Agora, experimente a linha de programa: 

10 PAUSE 1: BORDER 1: BORDER 2: BORDER 3: BORDER 4 • BORDER 

5: BORDER 6: BORDER 7: BORDER 0: GOTO 10 

- BRIGHT M 

,I St Y 0 primeiro comando de cores. Todos estes comandos de cores podem 
ser utilizados como comandos unicos em modo imediato, ou em uma declaracao 

fr'ditoiTtooS iStT 110 ' n re!ui, ' ,do! se fore ” 

r«k ’ SM ° >'>*“»”. P<*«atingem pane 

ou 8. m P ° de Ser Uma express5 ° numf5rica ’ mas s °mente com resultado igual a 0,1 
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Comm =0a tela voltara ou permanecera com o brilho normal das cores, ao 
passo que comm = lqualquer impressao futura sera feita de modo mais brilhante, al- 
terando a tonalidade-padrSo das oito cores do TK 90X. O emprego de BRIGHT 1 e 
CLS 6 o modo mais facil para que toda a imagem passe a modo brilhante. 

Com m = 8 qualquer impressao a ser feita na tela considerara o estado em que 
ja se encontrava a tela, ou seja, m = 8 quer dizer “transparente”, sem alterar nada. 

As linhas abaixo mostram os quatro diferentes modos de como um comando 
de cor, com o BRIGHT, pode ser usado. 

10 BRIGHT 1: PRINT “BRIGHT 
BRIGHT 0:PRINT “NORMAL” 

O brilho da cor e alterado de duas maneiras, sempre permanentemente. 

20 PRINT BRIGHT 1; “BRIGHT BRIGHT 0; “NORMAL” 

que muda o brilho temporariamente, durante a declaracao. 

30 PRINT CHRS 19 + CHRS 1; “BRIGHT CHR$ 19 + CHRS 0; “NOR¬ 
MAL” 

que substitui o comando pelo seu CHRS equivalente. 

40 LET AS = CHRS 19+CHRS 1: LET B$ = CHRS 19+CHRS 0: PRINT 

AS; “BRIGHT BS; “NORMAL” 

que coloca os comandos de cor em uma variavel tipo serie, ou tipo serie de 
caracteres. 

Existe outro modo de se “ligar” ou “desligar” o BRIGHT, que nao foi cita.do 
no manual do TK 90X. Com o cursor em modo E, ou seja “extended mode”, se 
voce pressionar a tecla 9, automaticamente obtera o modo BRIGHT 1; se pressio- 
nar a tecla 8, desativara, ou seja, retomara ao modo BRIGHT 0. Isso pode ser utili- 
zado dentro de aspas, na impressao de mensagens, ou mesmo com comandos de 
atribui?ao, como por exemplo LET AS = ” ” (com o modo extendido dentro das 
aspas). Digitando PRINT AS lhe dara o mesmo efeito que BRIGHT 1 ou BRIGHT 
0, dependendo do que voce colocou entre aspas. 

- CATM 

Para uso exclusivo com microdrives. 

Fornece a listagem de todos os arquivos gravados no cartucho inserido no Mi¬ 
crodrive m (com m indo de 1 a 8). A listagem 6 apresentada em ordem alfabetica, 
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precedida pelo nome do cartucho e seguida pela quantidade de memdria dispom'vel 
naquele cartucho, expressa em Kb. 


- CIRCLE x, y, z 

Este comando desenha um circulo de raio z, e coordenadas x e y do centro. 

0 valor z deve ser um numero absoluto inteiro, enquanto x e y slo manipula- 
dos como numeros de ponto flutuante. 

O maior circulo que pode ser desenhado possui raio 88, como na linha CIR¬ 
CLE 127,5, 87,7, 88. Se o raio e zero, o circulo e um simples ponto. 

Qualquer comando de cores pode ser inserido num comando CIRCLE, mas 
seu efeito sera sempre provisorio. 

Experimente a linha: 

10 FOR f = 168 TO 4 STEP 4: CIRCLE INK RND *6;f, f/2, f/2: NEXT f 

E perceba a diferenga entre um arquivo de imagens de alta resolugao grafica e 
um arquivo de atributos de baixa resolugao grafica. 


~ CLEAR E CLEAR N 

Como o TK 90X possui uma grande quantidade de memoria RAM disponfvel 
para o usuario, o emprego do comando CLEAR d muito vantajoso. Ele tern a facili- 
dade de mover a RAMTOP, fazendo a area de programas Basic aumentar ou dimi- 
nuir. Como a mem6ria RAM faz o papel de um bloco de rascunho, tudo o que esti- 
ver dentro dela sera apagado pelo comando NEW. O que estiver acima da RAMTOP, 
porem, nao sera atingido por esse comando. 

0 limite inferior para n e 23821, e apos um comando CLEAR 23821, o TK 
90X emitira um sinal sonoro avisando que nao cabe qualquer declaragao ou linha 
de programa Basic na memoria. 

O limite superior para n e 32767 em maquinas com 16K de RAM, e 65535 
em maquinas de 48K. O uso de CLEAR n com um numero apropriado tern o efeito 
de colocar as pilhas da maquina e do GOSUB na-area usada para caracteres grdficos 
do usuario. fi interessante tentar os passos a seguir que ilustram este efeito. 

Digite CLEAR 32767 (ou 65535) 


Mude o cursor para modo grafico (G) e pressione as letras de A ate U. Entao 
mantenha pressionada a tecla de SPACE por alguns segundos e observe as alteragQes 
de valores de cada tecla pressionada, indicando o uso da pilha da maquina. 


- CLOSE = FLUXO 

Para uso com microdrives. 

Desconecta um canal do fluxo especificado. 


- CLS 

Trata-se de um comando aparentemente simples de ser utilizado, que toma 
menos de um decimo de segundo na sua execugao, mas que envolve muito trabalho 
por parte do microprocessador. 

0 comando CLS limpa o arquivo de imagem. Ele “zera”, ou seja, inicializa to- 
dos os enderegos de 16384 a 22527, ou 4000 a 57FFh, bem como inicializa todos. 
os enderegos do arquivo de atributos, que vao de 22528 a 23295, ou 5800 a 5AFFh. 

Na realidade, essa inicializagao e feita atraves da copia do valor armazenado 
na variavel de sistema ATCLRP em cada posigao do arquivo. 

Fazendo-se diversos POKE na variavel ATCLR P, vemos claramente a atuagao 
de CLS. Digite: 

10 POKE 23693, RND * 255 

20 PAUSE 0: CLS: GOTO 10 

Em ATCLRP, o bit 7 controla o FLASH, o bit 6, o BRIGHT, os bits 5-3 con- 
trolam a cor de PAPER e os bits 2-0 controlam INK. 

- CONTINUE 

Muitas vezes este comando trabalha muito bem. Mas, em modo direto, o usua¬ 
rio percebera que o computador entra num “loop” contmuo, ate que se pressione 
BREAK. 

Existem duas facetas distintas do comando CONTINUE. A primeira e a que 
permite ao usuario, em tendo declaragoes STOP dentro de um programa Basic, fa- 
zer o seu processamento parar e, em seguida, continuar, atravds da tecla CONT. Des- 
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ta forma, pode-se examinar o programa, suas declaragoes, suas variaveis, alterar valo- 
res em suas linhas etc. Facilita o “debugging” (corregao) de programas. Tambem 
pode ser utilizada a tecla BREAK. 

A segunda faceta permite ao usuario repetir a interpretagao de uma declara- 
gao, apos corrigir um erro. Por exemplo, se um programa para por falta de definigao 
de variaveis, ou “variavel nao encontrada”, esta pode ser definida pelo usuario atra- 
ves de um comando direto, e o programa pode ser reiniciado pelo comando CONT. 

Seis variaveis de sistema estao envolvidas de alguma forma na execugao 
do comando CONTINUE. S2o elas: INJMP, INSTRNR, EXCLINE, SUBLEXC, 
CONTJMP e CONTNR. 


- COPY 

Este e um comando muito particular. 

Se houver uma impressora conectada ao slot traseiro do TK 90X, as 22 linhas 
superiores da tela serao enviadas a essa impressora. As 176 linhas de alta resolugao 
do conteudo do arquivo de imagem serao enviadas em partes. Este comando CO¬ 
PY 6 um dos muitos que desligam o “relogio de tempo real” (o clock do Z 80), por- 
que o comando e mais lento do que esse relogio. Pode-se verificar isto, examinan- 
do-se a variavel de sistema TVCOUNT antes e depois do uso de COPY. 


- DATA a, b, c„ .. 

Este comando, que so pode ser utilizado em modo programado, armazena 
uma listagem de valores que sao associados aos nomes de variaveis contidos em ou- 
tra linha do programa que obrigatoriamente comega com o comando READ. E 
uma dupla de comandos muito util, pois economiza memoria, ja que pode agrupar 
diversos comandos LET (comparativamente) em uma mesma linha. 


- DEF FN c (d,.. .w)=g & DEF FN b$ (d,.. ,f)=r 

Este e um comando muito poderoso no TK 90X. 

0 usuario pode definir um total de 52 fungQes - 26 numdricas e 26 alfanu- 
m^ricas. Os nomes usados para essas fungoes devem portanto ser de um simples 
caractere (com $ para alfanum6ricas). 
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_ dim x (al,.. .ak) & DIM x$ (al,.. .ak) 

0 comando DIM reserva espa$o na mem6ria RAM do computador para uma 
matriz numdrica ou alfanum6rica, de quantos elementos forem definidos em sua de- 
claragao, atraves da variavel subscrita, que aparece em primeiro lugar entre parente- 
ses, iniciando obrigatoriamente em 1 (outros sistemas permitem iniciar em 0). 0 ul¬ 
timo elemento dentro do parenteses 6 o comprimento de matrizes alfanumericas. 
Siga o exemplo: 

10 DIM al (1,704) 

20 FORf = 1 TO 168 STEP4: CIRCLE f, 87, f/2:NEXT f 
30 PRINT FLASH 1; AT 11,13; “TK 90X” 

40 INPUT “BRILHANTE OU NAO (1 ou 0)”; b 
50 INPUT “Que cor de papel?”; p 

60 PRINT OVER 1; BRIGHT b;PAPER p;INK 9; AT 0,0; a$ (1) 

70 GOTO 50 

- DRAW x, y & DRAW w, y, z 

Este comando desenha uma linha a partir da ultima posifao PLOT, exclusive, 
ate um ponto que esta a distancia x horizontalmente e adistanciay verticalmente. 
Se o argumento z e especificado, entao e desenhado um arco de ci'rculo, em vez de 
um segmento de reta. Esse argumento z deve ser especificado em radianos, onde se 
z=PI, o arco de cfrculo e um semicirculo. Se z 6 positivo, o arco sera desenhado no 
sentido anti-horario, e se z 6 negativo, o arco sera desenhado no sentido horario. 

Qualquer comando de cor pode ser utilizado juntamente com o comando 
DRAW; nao se esque$a de que o efeito desse comando de cor, se utilizado desta for¬ 
ma, e temporario. 

Agora, coloque a ROM do seu micro em transe: 

10 FOR f= 201 TO 1000 STEP 20: BORDER RND * 6: PAPER RND * 6: 
INK 9: CLS: PLOT 100,60: DRAW 70,70, f * PI: NEXT f. 

- ERASE "m";y; “nome" 

Para ser usado com microdrive. 
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Apaga o arquivo especificado pelo “nome” no cartucho inserido no micro¬ 
drive de numero y (de 1 a 8). 


- FLASH m 

Este e o segundo comando de cor. Quando usado sozinho em uma declara^ao 
Basic, seu efeito e de cor permanente, mas quando utilizado juntamente com uma 
declara 9 ao PRINT, seu efeito passa a ser “provisorio”. 

Como BRIGHT, m pode assumir os valores 0,1 e 8. 

Com m=0 area sem intermitencia 
m=l -> area com intermitencia 
m=8 -> area nao sofre altera 9 ao 

FOR x= a TO b STEP c 

O comando FOR e um dos comandos mais interessantes da Basic, e geralmen- 
te muito pouco compreendido, dada a sua grande faixa de atua 9 ao. 

As fases executadas pelo interpretador, quando encontra um comando FOR, 

sao: 

— Cancela qualquer variavel existente que possua o mesmo nome da variavel 
de controle. 

— Adiciona as variaveis existentes no programa a nova variavel de controle 
(x). Esta variavel ocupa dezenove endere 9 os de memoria. O primeiro endere 90 ar- 
mazena o codigo da letra que e o nome da variavel. Os proximos cinco endere 90 S 
armazenam o valor inicial (a) da variavel de controle, como um numero decimal de 
ponto flutuante. Outros cinco endere 9 os sao consumidos para armazenar o valor-li- 
mite (b) da variavel de controle, sob a mesma forma do valor inicial. Os outros cin¬ 
co endere 90 s seguintes sao usados para armazenar o valor do passo (c); caso nao seja 
especificado, e assumido automaticamente o valor 1. Os tres endere 90 S finais da li- 
nha de abertura do loop armazenam detalhes sobre ele. Os dois primeiros armaze¬ 
nam o numero da linha onde se encontra o comando FOR, e o terceiro armazena o 
numero da declara 9 ao dentro de uma linha de programa, incrementado em um. 

Se os valores limite e inicial sao inteiros entre -65535 e 65535 entao sao ar- 
mazenados como numeros inteiros, em vez de numeros de ponto flutuante, e sao 
manipulados cerca de 20% mais rapido. 


- A terceira a 9 ao executada pelo interpretador e muito especial. No TK 90X, 
nao existe indica 9 ao de erro quando especificamos um passo com valor errado (ne- 
gativo em vez de positivo, por exemplo). Ele simplesmente ignora o proximo valor 
a ser assumido pela variavel de controle. 

Por exemplo, no programa: 

10 FOR a= 1.6 TO 2.1 STEP-.l 

20 PRINT a 

30 NEXT a 

E o micro executara o programa, so que nao havera impressao alguma na tela, 
mostrando o resultado. 


- FORMAT "m";y; "nome” 

Para ser usado com microdrive. 

Prepara para uso um cartucho novo, inserido no microdrive de numero y, as- 
sociando o nome especificado a esse cartucho. 


- FORMAT "n"; x 

Atribui a esta 9 ao (microcomputador trabalhando em rede local, ate 64) o 
numero x especificado. 

- FORMAT "t"; x 

- FORMAT "b"; x 

Seleciona a taxa de baud para a interface RS 232 especificada pelo valor x, 
que deve estar contido na faixa-padrao da taxa de baud (50, 110, 300, 600,1200, 
2400, 4800, 9600, 19200). Outras taxas de baud, que nao estejam na faixa-padrao, 
podem ser obtidas atraves da alteragao de valores da variavel do sistema BAUD (na 
versao standard do TK 90X, esta variavel inexiste). 
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- GO SUB n 

Este comando transfere a execusao de um programa para a linha especificada 
pelo numero n, ou para a linha imediatamente posterior. 

Apos a execu^o desta sub-rotina, o controle do programa retorna para a pri- 
meira declarapao posterior ao GO SUB que o desviou. 

Uma poderosa capacidade do Basic do TK 90X e a que permite aos GO SUB 
e GO TO executarem saltos, com valores provenientes de expressOes aritmeticas, 
o que nao esta disponivel em muitas maquinas que possuam o comando ON x 
GOSUB, e ON x GOTO. 

- GO TO n 

No programa, significa que a proxima linha a ser interpretada e a linha de nu¬ 
mero n. 

O comando GO TO armazena sua linha de destino, nas variaveis de sistema 
INJMP e INSTNR, nos endere?os 23618 e 23620, ou 5C42 e 5C44h. 

- IF x THEN y 

No sistema do TK 90X, aquantidade zero e considerada logicamente “falsa”, 
e qualquer outra quantidade e considerada “verdadeira”. Esta declaragao IF x 
THEN y somente executara alternativa y quando a condipao x for verdadeira. 

Estes comandos sao muito poderosos, permitindo diversas combina 9 oes de 
opera 9 oes logicas e aritmeticas, mas o programa abaixo mostra o uso de divisOes 
repetitivas que levam quantidades num^ricas a nunca assumirem um valor “falso”. 
0 problema surge em decorrencia do modo como o TK 90X trata numeros, ou 
quantidades 2 t -128 (2 elevado a potencia - 128). 

Programa-demonstra 9 ao de um caso especial de IF.. .THEN. .. 

10 LET a=l 

20 IF NOT a THEN PRINT a 
30 PRINT a 
40 LET a=a/2 
50 GO TO 20 


E a sera impresso na tela, diversas vezes, ate atingir o valor 2.9387359E-39, 
quando se repete. 

- INK n 

Terceiro item de cores. Quando usado sozinho numa declara 9 ao Basic, tern o 
efeito permanente, mas quando utilizado dentro de declara 9 ao PRINT, por exem- 
plo, tern efeito provisorio. 

O valor de n deve estar na faixa de 0 a 9. As oito principal cores do TK 90X 
possuem os codigos entre 0 e 7, inclusive, e sao mostradas claramente no teclado. O 
uso de INK 8 demonstra que qualquer impress^o a seguir sera feita de modo a nao 
alterar a tinta existente na posi 9 ao da tela. O uso de INK 9, entretanto, e am 
pouco mais complicado, pois resulta numa tinta contrastante com o papel de 
fundo. Ou seja, se o papel e escuro, a tinta sera branca, e se o papel for claro, a 
tinta sera preta. Os papeis considerados escuros sao o preto, o azul, o vermelho, e o 
magenta; os papeis claros sao o verde, o cyan, o amarelo e o branco. A a 9 ao do co¬ 
mando INK permanente 6: para n=0 a 7, seta os bits 0,1 e 2 de ATCLRP conforme 
a cor; para n= 8, seta os bits 0, 1 e 2 de MASKCLRP; e para n= 9, seta o bit 5 de 
SFLAG4. Se a comando INK e provisorio, os bits das variaveis de sistema que cui- 
dam das cores provisorias sao setados conforme a cor desejada. 

- INPUTn 

Este e um comando muito poderoso do TK 90X, pois permite ao usuario a 
inser 9 ao de mensagens entre aspas a serem impressas, simulando o comando PRINT. 
Estas mensagens, quando usadas com o comando INPUT LINE, devem vir obrigato- 
riamente antes da palavra LINE. 

O programa abaixo mostra o uso de diversos itens num mesmo INPUT: 

10 INPUT “Qual 6 o seu nome?”; a I; CHRS 13; “E qual 6 a sua idade?”; LI¬ 
NE b$; “E onde voce mora?”; LINE c$ 

20PRINT AT 2,5; “Nome:”; a$; CHRS 13; “Made:”; b$ 

30 PRINT AT 4,5; “Endere 9 o:”; c$ 

Agora, experimente o seguinte programa, substituindo a linha 10 por: 

10 INPUT AT 5,0; “Qual e o seu nome?”; LINE a$; AT 3,8; “E a sua ida- 
de?”; LINE b$; AT 7,15; “E onde voce mora?”; LINE cl 

Veja que efeito interessante! 


RUN 
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Experimente substituir os valores das linhas e colunas do comando INPUT 
AT, respeitando os numeros de linhas (de 0 a 21) e colunas (de 0 a 31) da tela, e ve- 
rificara que se pode, em diversos programas, colocar as entradas diretamente na po- 
sifao que serao impressas. 


- INVERSE n 

Outro comando de cores, agora o quarto. Mais uma vez, seus efeitos podem 
ser provisorios ou permanentes. 

Se e utilizado INVERSE 1, entao a impressao se fara, conforme o nome diz, 
inversamente, ou seja, com a tinta da cor do papel, e o papel com a cor da tinta (in¬ 
vert* as cores). Para anular esse efeito, usa-se INVERSE 0. 

Quando se usa INVERSE 1, para efeito permanente, o que o TK 90X faz e 
setar o bit 5 de SFLAG4, e seta o bit 4 daquela variavel, quando se quer efeito pro- 
visorio. 


- LET x=y 

Este e, sem duvida alguma, o mais importante dos comandos Basic do TK 
90X. Uma variavel e inicializada” pelo usuario e o interpretador tem de determi- 
nar se a variavel e simples, e sene, 6 controle de loop, ou parte de uma matriz. 

Todos os valores numMcos empregam cinco endere 5 os para armazenar o seu 
conteudo. Este valor e entao manipulado como um numero de ponto flutuante ou 
um inteiro. Series de caracteres que tenham comprimento dinamico, ou seja, o 
numero de caracteres reservados para seu comprimento depende do instante do pro- 
grama, tambem tem enderegos reservados de valores variaveis. Todas as matrizes de 
comprimento fixo e as cadeias de caracteres que sejam elementos de matrizes serao 
fatiadas, se o seu conteudo for maior do que o comprimento especificado, e serao 
completadas com espagos em branco, se o s6u comprimento for menor que o espe-”' 
cificado. 

0 programa-demonstra 9 ao a seguir mostra a area de variaveis manipulaiido di¬ 
versos valores digitados a paftir do teclado. 

10 REM Entre com a sua variavel 

20 LET m= PEEK 23627 + 256 * PEEK 23628 

30 PRINT m, PEEK m: LET m=m + 1 

40 GO TO 30 


Algumas sugestoes para a linha 10 acima: 

10 LET c=0 
10 LET c=15E3 
10 LET c$=“CCC” 

10 DIM c(3): LET c(l)= 7E7 

10 DIM c$(3): LET c$=“ABCDEFGHIJKLM” 

10 DIM c$(2,10): LET c$(l)=“TK 90X” 

Veja, no seu manual, a correspondence de caracteres e seus respectivos codi- 
gos para entender todos esses numeros que apareceram na tela. 

- LISTn 

Neste comando, sen=0, e assumido o valor da primeira linha existente do pro- 
grama em Basic, e nao e necessario especifica-lo. Se a linha n existe, entao o cursor e 
colocado apos seu numero, indicando que ela passou a ser a linha corrente, a fim de' 
ser editada. 

Digite qualquer programa no micro, a partir da linha 1, com linhas de 1 em 1. 
Inclua uma linha qualquer, de numero 20, e digite mais algumas linhas. Em segui- 
da de LIST 49172, para ver o que acontece (e o mesmo que LIST 20). 


- LUST n 

Este comando tem atividade semelhante a LIST n, so que desvia a listagem do 
programa para a impressora. Experimente colocar em seus programas LIST # 3 e 
LLIST # 2, para ver o que acontece. 

- LOAD 

No TK 90X, o comando LOAD possui diversos modos de utiliza?ao, a fim de 
permitir ao usuario carregar programas Basic, matrizes ou blocos de bytes. 

A informagao, c6digo ou programa armazenado numa fita cassete, e manipula¬ 
do em duas partes. A primeira parte e um “cabe?alho” de dezessete bytes e a segun- 
da parte e um bloco de bytes. 
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O “cabe^aiho” pode ser dividido em quatro partes, a saber: 

1- Um simples byte de informagao, que vale 0 para programas Basic, 1 para 
matrizes num^ricas, 2 para matrizes alfanumSricas e 3 para blocos de bytes. 

2- Os proximos dez bytes armazenam o nome do arquivo. Se o nome tiver 
mais do que dez caracteres, ele e rejeitado. 

3- Dois bytes seguintes sao usados para informar o comprimento total do bio- 
co de bytes. No caso de programa Basic, apenas a area de programas e a area de va¬ 
riaveis sao armazenadas na fita cassete. 

4- Dois outros bytes que armazenam, no caso de programa Basic, o numero 
da linha de programa que sera o seu inicio, e no caso de bloco de bytes, o enderefo 
de inicio daqueles bytes. 

0 bloco de bytes 6 simplesmente carregado na area de RAM requerida, de 
acordo com a informagao do cabe 9 alho. 


- LPRINT 

Este comando desvia os dados de saida para a impressora. Para maiores deta- 
Ihes, veja PRINT. 


- MERGE 

Este comando permite que um pitograma Basic e suas respectivas variaveis e 
informa^oes sejam carregados na mem6ria do micro, a partir de um gravador cassete 
ou um microdrive, cancelando apenas o que for coincidente em rela 9 ao ao programa 
que ja estava na mem6ria, como, por exemplo, numeros de linhas de programa, no- 
mes de variaveis etc., fazendo entao com que os dois programas “se misturem”. 

0 modo de trabalhar da rotina da ROM do comando MERGE faz o programa, 
a ser carregado da fita cassete, ser tratado como um bloco de bytes e ser inicialmen- 
te armazenado na area de trabalho da memoria^para, a seguir, ser comparado, linha 
por linha, com o programa existente, e entao serem copiadas na drea de programas 
Basic as novas linhas e serem sobrepostas as coincidentes e as variaveis, de mesmo 
nome. 


- MOVE FONTE TO DEST1NO 

Para uso com microdrive. 

Transfere dados de uma fonte qualquer de dados, fluxo ou canal, para a fonte 
destino. 

Em termos de microdrive, e um comando muito poderoso. 


- NEW 

Este comando faz uma reinicializa 9 ao total do sistema, ou seja, apaga todo o 
conteudo da mem6ria e “zera” qualquer variavel existente, exceto as variaveis de 
sistema RAMTOP, MEM A VLB, BUZCCLE, KCLICK e UDGRAFH, nao afetando 
caracteres graficos defmidos pelo usuario, visto que se encontram em area fora da 
area Basic. E o mesmo que RAND USR <j). 


- NEXT x 

Este comando pode ser considerado como o comando de fechamento de um 
loop aberto atraves de FOR x= . . TO y. . . STEP. . ., e tudo que se encontra “den- 
tro” dessas duas linhas tenha o seu processamento repetido y vezes. Pode-se dizer 
que o comando FOR nao trabalha sem NEXT, e o comando NEXT nao trabalha 
sem FOR. Para cada FOR de um programa, deve existir um NEXT. 

As fases envolvidas na execu 9 ao do comando NEXT sao as seguintes: 

1- A variavel de controle e armazenada na area de variaveis da memoria, e o 
valor do STEP e adicionado ao valor da variavel de controle * nao importandb se € 
negativo ou positivo. 

2- Entao o novo valor da variavel de controle e comparado com o limite, e se 
este novo valor o ultrapassar, entao o comando NEXT estara terminado. 

- OPEN # 

Para uso com microdrive, entretanto, 6 possivel “abrir” ou “fechar” (OPEN- 
CLOSE) fluxos num micro standard, sem perifericos, da seguinte maneira: 

- Experimente a linha PRINT # 5 “Sera que funciona?”, e certamente nao 
funcionara, a menos que o fluxo seja aberto com a linha OPEN # 5, “S”, direcio- 
nando o fluxo 5 ao canal S (de screen). A linha CLOSE # 5 fechara o fluxo. 
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Experimente digitar o programa a seguir, que mostra entradas sendo aceitas 
a partir do teclado e sendo passadas para a tela* 

10OPEN#5, “k” 

20 INPUT #5;a$ 

30 OPEN #5, ‘V* 

40 PRINT# 5; a$ 


- OUT f,g 

Este comando permite que o usudrio envie sinais ds portas de saida do TK 
90X, a partir do Basic. 

No comando BORDER, ja visto, foi mostrado que a porta 254 controla a cor 
da borda, para valores entre 0 e 7. 

Entretanto, essa mesma porta 254 pode ser empregada para controlar a saida 
de som atraves do alto-falante da televisao. 0 programa mostra tambdm uma estima- 
tiva do tempo que o TK 90X leva para executar uma instru 9 ao. Se esta for rapida, o 
som equivalera a uma nota alta, e, se ela for mais lenta, o som equivalera a uma nota 
mais baixa. 

- Programa de controle do alto-falante da televisao 

10 OUT 254,23 

20 REM Nesta linha pode-se colocar instru95es das mais variadas, como,por 
exemplo PRINT;: ou RAND ou LET t=0 ou PAUSE 1 ou PAUSE 5 etc. 

30 OUT 254,7 

40 GO TO 10 ou RUN 

Nesse programa, o comando OUT 254,23 desliga o som, enquanto o comando 
OUT 254,7 liga o som. A opera 9 ao e repetida muito rapidamente para produzir o 
som do alto-falante da teve. 

Quando houverem diversos perifericos no mercado, este sera um comando 
muito utilizado. 


- OVER x 

Mais um comando de impressao de cores (o quinto). Mais uma vez, seus efei- 
tos podem ser provisorios ou permanentes. Se foi especificado OVER 1, entao a im¬ 
pressao que segue sera resultado da opera 9 ^o bindria XOR com a impressao existente 
na area do caractere que esta sendo processado, 

O resultado da opera 9 ao binaria XOR sera 1 (um) quando somente um dos 
bits envolvidos for um, caso contrario, sera zero. 

Isto quer dizer que se um caractere qualquer for impresso duas vezes com 
OVER 1, ele desaparecera. 

Com OVER 0, todos os bits de uma dada area de caractere envolvida serao 
plotados. 


- PAPER x 

Ultimo item de impressao de cores. Mais uma vez, seu efeito pode ser tempo¬ 
rary ou permanente. 

Como INK, o comando PAPER pode ser usado com x variando de 0 a 9. Para 
se utilizar as cores normais do TK 90X, utiliza-se x na faixa de 0 a 7. Com x=8, em- 
prega-se o modo transparente, ou seja, nao se altera a cor do papel ja existente na 
tela. 

O uso de PAPER 9 e muito util, pois nos permite utilizar o papel sob forma 
contrastante, ou seja, se a tinta com a qual se esta escrevendo for escura, o papel a 
ser utilizado sera branco, e vice-versa. 

A a 9 ao do comando PAPER, usado no modo permanente, seta os bits 3, 4 e 5 
da variavel de sistema ATCLR P, conforme a cor especificada (com x de 0 a 7); com 
x-8, seta os bits 3, 4 e 5 de MASKCLRP; e com x=9 seta o bit 7 de SFLAG4. 


- PAUSES 

Este comando aplica ao Z 80 a instru 9 ao em linguagem de maquina HALT, 
por s interrup 95 es. O unico trabalho que 6 realizado durante PAUSE 6 a manipu- 
la 9 ao da rotina da ROM que le o teclado para saber se alguma tecla foi pressionada, 
interrompendo a pausa. 

O resultado da divisao de s/60 fornece o tempo da pausa em segundos. 
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- PLOT x,y 

Na tela do TK 90X existem 256 x 192 pixeis, cada um deles controlado indi- 
vidualmente pelo comando PLOT. No modo normal de operagao, o comando PLOT 
vai setar o bit correspondente aquele pixel, no arquivo de imagem. 0 comando tam¬ 
bem faz o armazenamento das coordenadas do ultimo pixel plotado nas variaveis de 
sistema LSTPLOT e COORDS, nos endere 90 s 23677 e 23678. 

Qualquer comando de cor do TK 90X pode ser utilizado dentro de uma decla- 
ra§ao PLOT, e o emprego de PLOT OVER 1 significa, em equivalence ao TK 85, o 
comando UNPLOT, que apaga o ponto setado. Com o uso de PLOT INVERSE 1, si- 
mulamos um comando que “nao plota”, porque inverte as cores da tinta e do papel. 
O comando PLOT transfere a cor permanente para toda a area do caractere envolvi- 
do, mas nao afeta nenhum outro comando de cor, a menos que ele esteja especifi- 
cado, isto e, PAPER 8; FLASH 8; BRIGHT 8. 


- POKE end, b 

Este comando permite que o usuario armazene, diretamente nos endere 90 s da 
memoria RAM do TK 90X, seus valores especificados. A faixa aceitavel de endere- 
9 amento come 9 a com 0 e termina em 65535 (p/48K de RAM) valendo a ressalva que 
os endere 90 s entre 0 e 16383, pertencentes a memoria ROM (memoria apenas de 
leitura), aceitem os valores a ser introduzidos nos endere 90 s (nao transmitem men- 
sagem de erro), mas nao os escrevem nesses endere 90 S — simplesmente despreza-os. 
A faixa aceitavel para os valores de b, conforme no capitulo anterior, e de valores 
de bytes, ou seja, de 0 a 255. Quando sao valores negativos, na faixa de -255 a -1, a 
eles e adicionado o valor 256, para converte-los em positivos. 

- PRINT. . . 

Este comando permite ao usuario diversas “formata 9 oes de dados de saida”, 
na tela do TK 90X. 

As mensagens ou os simbolos a serem impressos sao separados do anterior por 
“delimitadores”, que determinam onde e se devem ou n2o ser impressos. 

O delimitador (ponto e vfrgula) significa que o proximo item a ser impres- 
so devera vir imediatamente apos o existente, sem espa 90 s intermediaries. 

O delimitador (vfrgula) significa tabular ate a proxima metade da linha 
que esta sendo impressa na teve, ou seja, divide a tela horizontalmente em duas me- 
tades iguais. 


0 delimitador “i” (apdstrofo) significa pular uma linha, come 9 ando uma im¬ 
pressao no infeio da proxima linha. 

A posi 9 ao de impressao tambem pode ser “formatada” atraves do uso de 
TAB y e AT x, y. 

Os itens a serem impressos tambem podem ser coloridos, tanto provisoria 
quanto permanentemente, atraves dos comandos de cor, ou atraves de acesso direto 
as cores desejadas. 

Note que todos os comandos de cores, bem como os delimitadores e controla- 
dores de posi 9 ao de impressao, tambdm podem ser utilizados atraves dos seus codi- 
gos apropriados (CHRS. , .), o que pode ser muito util. 

- RANDOMIZE x 

Este comando inicializa o valor armazenado na variavel de sistema INITRND, 
nos endere 90 s 23670 e 23671, ou 5C76 e 5C77. 

Se x nao e especificado, o valor de INITRND e tornado dos dois bytes menos 
signiflcativos da variavel de sistema TVCOUNT, nos endere 90 s 23672, 23673 e 
23674. Se foi declarado um valor para x, este numero e copiado em INITRND. 


- READ xl, x2, x3,... 

Este comando, usado conjuntamente com uma listagem de dados em uma de- 
clara 9 ao DATA, pode ser considerado como sendo uma s£rie de comandos LET, ja 
que faz a atribui 9 ao aos nomes das variaveis contidas na linha READ, com OS seus 
respectivos valores contidos na linha DATA. 

O numero de valores de uma linha DATA deve obrigatoriamente ser igual ao 
numero de nomes de variaveis contidos em uma linha READ, pois se assim nao for 
ocorrera o surgimento de uma mensagem de erro. 

- REM. .. (DO INGLES REMARKS, OU OBSERVANCES) 

Este e um comando muito util para o usuario, e nao tern efeito algum sobre o 
processamento do programa em Basic. Note que, em uma linha que inicie com o co¬ 
mando REM, se houver qualquer outro comando apos o REM, separado por dois 
pontos, ele nao sera processado, sendo considerado, pelo interpretador Basic, como 
declara 9 ao REM. 
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- RESTORE x 

Este comando e usado em conjunto com uma listagem de um comando DA¬ 
TA, ou mais. Se X = 0, entao o apontador da variavel de sistema ENDDATA, de en- 
dere^os 23639 e 23640, ou 5C57 e 5C58h, e direcionado para apontar em dire 9 ao 
ao endere 90 apos a area de programa. Se foi especificado um valor para x, entao 
ENDDATA e ajustado para apontar para o endere 90 depois do inicio daquela linha, 
se existir, ou a primeira linha posterior aquela. Se x exceder o valor 9999, que e o 
ultimo valor valido para numeros de linhas de programa, entao a variavel de sistema 
ENDDATA apontara para o ultimo endere 90 da area de programas da memoria 
RAM. 


- RETURN 

Este comando procura a ultima entrada na pilha do GOSUB. Se essa entrada 
for um numero valido de declara 9 ao, entao o interpretador Basic executara a proxi- 
ma declara 9 ao. Se a entrada nao for valida, entao surgira a mensagem de erro ade- 
quada. 

- RUNx 

Este importante comando em Basic permite que o usuario execute seus pro¬ 
gramas. Se nao foi especificado um valor para x, entao significa que o usuario quer 
que o interpretador procure, na area de programas Basic da memoria, uma linha 
com aquele numero, ou a primeira linha apos aquele numero, caso nao exista a linha 
x, para entao interpreta-la. 

O comando RUN faz a inicializa 9 ao de todas as variaveis existentes na memo¬ 
ria, ou seja, ele e equivalente ao comando CLEAR acrescido do comando GOTO 
primeira linha. 

- SAVE 

Este comando esta muito bem explicado no capitulo 23 do manual do TK 
•90X. Para outros detalhes, veia neste capitulo o comando LOAD. 


- SOUND x, y 

Este comando emite uma nota musical atraves do alto-falante da televisao. O 
valor x e a dura9ao em segundos, e o valor yeo tom da nota, em fun 9 ao da nota 
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DO central, na faixa de valores entre - 60 e + 69,8. Tanto x quanto y podem ser ex- 
pressoes numericas. 

Note que enquanto o comando SOUND estiver ativado, ele n2o permite inter- 
rup 9 oes (BREAK) atraves de Basic, porque sua rotina de comandos na ROM n2o 
checa se a tecla BREAK foi pressionada. Apos a sua execu 9 &o, pode-se dar um 
BREAK. 

Experimente o seguinte programa, para testar tempo e tom das notas musicais 
emitidas pelo TK 90X: 

10 LET a=- 60 

20 SOUD RND * .05, a 

30 LET a = a + 1 

40 PRINT a, 

50 GOTO 20 

Veja que, quando a atingiu o valor 70, o computador emitiu a mensagem de 

erro. 

Acrescente as linhas 

15 POKE 23692,255 e 
45 IF a = 69 THEN RUN 

- STOP 

Sempre que este comando for interpretado, surgira a mensagem de erro “9 
STOP executado”. O uso do comando CONT, em modo direto, permite a exetU 9 ao 
do programa a partir do comando imediatamente apos o comando STOP. 

Assim como uma situa 9 ao de erro, o efeito do erro “STOP” 6 o de transferir 
o numero do erro para a variavel de sistema ERRCD de endere 9 o 23610, ou 5C3Ah. 
O numero do erro e sempre um a menos que o codigo do erro que aparece antes da 
mensagem de erro. 

Uma vez ocorrido um erro, o interpretador interrompe a execu 9 ao da rotina 
do programa e salta para a rotina de manipula 9 ao de erros. Entao, o numero do erro 
e transferido para a variavel de sistema ERRCD e o endere 90 de retomo ao modo 
imediato, localizado em 4867, ou 1303h, e coletado. Este endere 90 de retorno esta 
sempre presente durante a interpreta 9 ao de um programa, nos dois endere 9 os 
abaixo da pilha do GOSUB. Este endere 90 esta sempre apontado pela variavel de 
sistema P ERR, de endere 90 s 23613 e 23614, ou 5C3D e 5G$Eh. 
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- TRACE (1 QUO) 

Comando de saida, que, quando acionado (TRACE 1), mostra o numero da li- 
nha de programa Basic que esta sendo executada, apos o sinal de #. 

Para cessar o comando, usa-se ou TRACE 0 ou TRACE. 

Infelizmente, na minha opiniao, o campo de saida do comando e a propria te¬ 
la, nao havendo preocupa 9 ao dos projetistas em nao atrapalhar a saida de dados do 
programa, abrindo, por exemplo, quando do acionamento do comando, uma janela 
na parte inferior do video. (Existe uma variavel de sistema que armazena o numero 
da linha de programa que esta sendo processada). 

- VERIFY 

A presen^a deste comando em Basic do TK 90X € muito tranqiiilizadora para 
o usuario, pois permite que qualquer programa gravado numa fita cassete, ou num 
microdrive, seja comparado com o conteudo da memoria, acusando, atraves de uma 
mensagem de erro, se o conteudo da fita esta diferente do conteudo da memoria. 

AS FUNQOES BASIC 

- ABS 

Esta fungao converte todos os numeros negativos em positivos e nao altera os 
numeros positivos. 

- ACS 

Retorna o arco do co-seno do angulo em questao, em radianos. 


- AND 

Esta fun 9 ao e, na realidade, uma opera 9 ao binaria que requer dois operandos. 
Se os dois operandos sao logicamente verdadeiros, entao a opera 9 ao e executada. 
Entretanto, se um dos operandos for logicamente falso, a opera 9 §o deixa de ser exe¬ 
cutada. Uma expressao numSrica “falsa”, equivalera, para a opera 9 ao binaria, ao va¬ 
lor 0, e uma cadeia de caracteres tambem “falsa”, tera comprimento zero e conteu¬ 
do nulo. Quando o resultado e verdadeiro, o primeiro operando e o que e mostrado 
ao usuario. 


- ASN 

Retorna o arco do seno do angulo em questao, em radianos. 

- AIN 

Retorna o arco da tangente do angulo em questao, em radianos. 

- ATTR 

Esta fun 9 ao tern a forma ATTR (linha, coluna). Retorna ao usuario o valor ar- 
mazenado no byte do arquivo de atributos daquela respectiva posi 9 ao. A fun 9 ao e 
equivalente a: 

PEEK (22528 + linha * 32 + coluna) 

0 valor do atributo pode ser considerado como sendo: 

INK + PAPER * 8 + BRIGHT + FLASH * 128 

- BIN 

Esta e uma fun 9 ao muito interessante, pois permite que qualquer numero in¬ 
tern) decimal entre 0e65535 seja digit ado em sua forma binaria. Qualquer numero 
que possua ate 16 dfgitos binarios e permitido. 

O programa a seguir mostrara, a partir de numeros binarios, decimais de 0 

a 10. 

10 FOR a-BIN 1 TO BIN 1010 STEP 00000001 
20 PRINT a 
30 NEXT a 

Note apenas que os numeros binarios nao sao impressos em comandos de 
saida, a menos que se use uma rotina em Basic que o fa 9 a. 

- CHR$ 

Esta fun 9 ao retorna ao usuario o caractere correspondente a um determinado 
codigo. 
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0 programs a seguir mostra a impressSo desses caracteres. Os comandos CONT 
ou NEXT a, deverao ser utilizados diversas vezes, para nao interromperem o loop de 
sai'da, quando for impressa a mensagem de erro referente aos codigos de cor. 

10 FOR a=0 TO 255 

20 PRINT a; TAB 8;CHR$ a 

30 NEXT a 

- CODE 

Esta fungao retorna ao usuario o codigo relativo ao primeiro caractere da res- 
pectiva serie de caracteres, correspondendo ao in verso da fungao anterior. Se a 
serie de caracteres for nula, o codigo sera zero. 

- COS 

Retorna o co-seno do angulo em questao, em radianos. 


Para um dado argumento x, a fungao retorna o valor “e elevado a potencia 
x”, onde e vale 2,7182818. .. 


No TK 90X podem existir ate 26 fungoes numericas e ate 26 fungSes alfanu- 
mSricas definidas pelo usuario. A fungao Basic “FN” deve vir seguida de uma sim¬ 
ples letra, para fungOes numericas, ou de simples letras seguidas do sfmbolo “$”, 
para fungoes alfanum6ricas, e o argumento requerido pela fungao deve vir entre 
parenteses. 

- IN endereso, byte 

0 argumento desta fun 9 ao e usado como codigo de enderegamento de uma 
porta de entrada, e o valor resultante devera estar na faixa de 0 a 255. Se uma porta 
nao estiver sendo usada, o valor nela sera 255. 
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- INKEY$ 

Esta fungao permite que o teclado do TK 90X seja lido sem que se fa 9 a uso 
do comando INPUT. Se uma simples tecla e pressionada, entao 6 criada uma serie 
de caracteres de comprimento um, cujo conteudo e aquela tecla pressionada. 

- INT 

Retorna ao usuario a parte inteira de um numero decimal, ou seja, arredonda 
aquele numero para baixo. Numeros negativos sao primeiramente truncados, para 
entao se subtrair 1 dele e em seguida o resultado ser arredondado. 

Portanto, + 4.66 resultara em +4, enquanto -5.66 sera truncado para -5, ou 
arredondado para -6. 


- LEN 

Esta fun 9 ao calcula o comprimento, em numero de caracteres de uma dada 
serie de caracteres. Uma serie nula tera comprimento zero. 

Entretanto e bom salientar que as cores, tanto de papel, quanto de tinta, bem 
como os atributos obtidos diretamente, via teclado, serao considerados para efeito 
de comprimento de series , e cada inclusao dessa consumira dois caracteres de com¬ 
primento. 


- LN 

Retorna o logaritmo da base e, do argumento dado. 


- NOT 

Esta e uma fun 9 ao muito interessante por ser a unica que fomece o “estado 
logico” de um valor no sistema do TK 90X. Entretanto e importante notar que o 
resultado e invertido e que o verdadeiro resultado logico 6 dado pela opera 9 ao 16- 
gica “NOT NOT x”. 

Isto e, para x=2, um valor “verdadeiro” 

NOT x sera 0, que e “falso” 

NOT NOT x sera 1, que e a resposta correta e “verdadgira”. 
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- OR 

Esta e uma op'eragao binaria que requer dois operandos. Se um dos dois ope- 
randos for logicamente verdadeiro, entao a opera^o sera efetuada. Entretanto, se 
nenhum dos dois operandos for verdadeiro, entao a opera$5o sera logicamente falsa. 
Um resultado verdadeiro tera o valor 1 se o segundo operando for zero e tera o va¬ 
lor do primeiro operando se o segundo operando nao for zero. 


- PEEK 

Esta fun$ao retorna o valor encontrado no cndercco especificado da memoria. 
O resultado sera sempre um inteiro entre 0 e 255, inclusive. 


- PI 

Uma fun$ao muito particular do TK 90X. A representa?ao em ponto flutuan- 
te de PI/2 e armazenada como uma constante na “tabela de constantes da ROM . 
Este valor e de la coletado, duplicado e colocado a disposigao do usuario. 

O valor de PI e aproximadamente 3.141592653... 


- POINT 

Esta fun 5 ao tern a forma POINT (x plot, y plot), e retorna o valor 1 se o pixel 
daquela posi§ao estiver impresso na tela, e o valor 0, se nao estiver impresso. 


- RND 

No TK 90X, os numeros “aleat6rios” sao gerados por um pseudogerador de 
numeros aleatorios. A variavel de sistema INITRND, de endere§os 23670 e 23671, 
ou 5C76 e 5C77h, e coletada, modificada e reinicializada a cada chamada da fun?ao 
RND. 0 numero aleatorio gerado para o usuario e o novo valor de INITRND divi- 
dido por 65536. 

0 valor de. INITRND 6 zerado ap6s cada inicializa?ao do TK 90X. Entretanto, 
existe uma sequencia de numeros entre os valores inteiros de 0 a 65535. Nenhum 
valor sera repetido atd que tenham sido usados 65535 numeros. 

Os dois exemplos Basic a seguir mostram estas a 9 oes. 


1- A natureza de RND 

10 PRINT RND: FOR a=l TO 65535: POKE 0, RND: NEXT a: PRINT RND 

Este pequeno programa leva cerca de vinte minutos para ser executado, mas 
mostra que o mesmo numero RND e gerado apos 65535 chamadas. 0 comando in¬ 
termediary POKE e apenas uma sugestao. 

2- A modifica^ao de INITRND 

10POKE 23670,0:POKE 23671,0 

20 LET INIT=0 

30 LET INIT=INIT + 1 

40 LET INIT=INITx75 

50 LET INIT=INIT-INT (INIT/65537) x 65537 

60 LET INIT=INIT-1 

70 PRINT INIT/65536, RND 

A linha 10 zera a variavel de sistema INITRND. O programa mostra que o 
mesmo resultado e produzido atraves das modifica^Oes das linhas 30 a 60, ou pela 
chamada de RND. 


- SCREENS 

Fun 5 ao muito interessante do TK 90X, que foi pouco explorada no manual. 

A forma desta fm^ao e SCREENS (linha, coluna), que retorna ao usuario 
uma serie contendo o caractere da posi 9 ao especificada. A fun 9 ao reconhece os co- 
digos de caracteres da faixa 32 a 127, tanto normais ou invertidos. 

E possivel, no entanto, fazer SCREENS reconhecer caracteres graflcos defini- 
dos pelo usuario. Basta alterar a variavel de sistema PTBLCHR, nos endere 9 os 
23606 e 23607, ou 5C36 e 5C37h, tomando o endere 9 o apontador dos caracteres, 
para efeito de reconhecimento de SCREENS, o primeiro da areade caracteres gra- 
ficos. 

Em outros termos, voce faz POKE 23606, 88 e POKE 23607, 254. Com estes 
dois comandos a tabela de caracteres foi desviada para a area de caracteres graflcos, 
e SCREENS vai reconhecer o seu caractere grafico, atraves, por exemplo, do co- 
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mando IF SCREENS (linha, coluna) = CHRS 32 THEN. . . (obrigatoriamente 
usa-se CHRS 32, que 6, na tabela de cddigo do Apendice D do manual, o espago em 
branco). Para retornar aos caracteres normals de impressao, usa-se POKE 23606,0 e 
POKE 23607,60. 

Esta fung5o trabalha comparando o conteudo dos oito bytes do caractere es- 
pecificado com os oito bytes que representam urn caractere, armazenados no gera- 
dor de caracteres, da memoria ROM, que comegam no enderego 15360. 

Apesar da quantidade de trabalho envolvida pelo hardware da maquina, esta 
fungao e surpreendentemente rapida. Isto pode ser demonstrado pelo programa: 

10 PRINT SCREENS (0,0) 

que aparece quase instantaneamente. 

- SGN 

Esta fungao retorna o sinal do numero em questao, ou seja, retorna “+1” para 
todos os numeros positivos e “-1” para todos os numeros negativos. 

- SIN 

Retorna o seno do angulo em questao, em radianos. 

- SQR 

Esta fungao mostra ao usuario a raiz quadrada do numero especificado, desde 
que esse numero seja positivo. 

O TK 90X calcula a raiz quadrada de urn niimero elevando-o a 0.5. 

- STR$ 

Esta fungao converte uma variavel numerica em variavel alfanumerica. 

- TAN 

Retorna a tangente do angulo em questao, em radianos. 
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Esta tangente e encontrada, a partir do seno e do co-seno daquele angulo, que 
sao calculados separadamente, e entio divididos. 0 tempo de execugao desta fungao 
6, portanto, o dobro do gasto pela fungdo seno ou pela fungao co-seno. 


- USR 

No TK POX a paiavra-chave USR seguida de uma expresslo numdrica e dife- 
rente da forma USR seguida de uma serie. 


- USR numero 

Esta fun§ao, desta forma, e muito iinportante para aqueles que desejani utili- 
zar linguagem de maquina no TK 90X. Ela serve para “chamar” rotinas em lingua- 
gem de mdquina criadas pelo usudrio, ou mesmo rotinas da ROM, a partir do nume¬ 
ro especificado, que deve ser o primeiro endereeo da rotina que sera executada. 

No caso de rotina em linguagem de maquina criada pelo usuario, o Z 80 inter- 
rompe a execu^ao do programa monitor armazenado na ROM do TK 90X, e imedia- 
tamente inicia a execueao da rotina chamada a partir do enderego especificado. 


USR string 

A fungdo USR retorna o enderego da membria RAM correspondente ao carac¬ 
tere grafico definido pelo usuario. 

O argumento de USR string deve ser uma serie de um caractere, que deve es- 
tar entre A e U, ou a e u. 

No TK 90X standard, com 16K de membria, a area de caracteres graficos defl- 
nidos pelo usuario comega em 32600, ou 7F58h. 

Na versao de 48K de RAM, esta area comega em 65368, mas estas dreas po- 
dem perfeitamente comegar em outros enderegos, alterando-se o enderego apontado 
pela variavel de sistema UDGRAPH, armazenada nos enderegos 23675 e 23676, ou 
5C7B e 5C7Ch. 
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Digite em modo direto: 

PRINT USR “a”, e tera como resposta 65368 

Digite em modo direto: 

PRINT PEEK 23675 + 256 * PEEK 23676, e a resposta tambem sera 65368, 
que e entao o primeiro endere$o do caractere grafico correspondente a letra A. 

Agora digite: 

PRINT PEEK 23675 e PRINT PEEK 23676 separadamente 

E de POKE nesses endere§os, para mudar o endere 90 inicial da area de carac- 
teres graficos. 

Digite novamente a frase PRINT PEEK 23675 + 256x PEEK 23676 para sa¬ 
ber o novo endere$o inicial da area de graficos, o que significa digitar PRINT USR 
“ a ”. 

Agora experimente rodar o seguinte programa, em modo direto, consideran- 
do-se o endere?o inicial da area de graficos como sendo END. 

FOR f= END TO END + 8:POKE END, RND* 255dSIEXT f e entrando em 
modo grafico (cursor G), veja o que aconteceu com a tecla A. 

Percebeu? Voce ainda acha que o TK 90X pode criar apenas 21 caracteres gra¬ 
ficos? 0 tamanho da area de caracteres graficos definidos pelo usuario 6 variavel, de- 
pendendo apenas de quantos caracteres se queira criar para aquele programa. Nao 
esque 5 a de dar os POKEs respectivos para mudar o enderefo inicial da area de ca¬ 
racteres, bem como os POKEs necessarios para se retornar ao tamanho padrao. Se 
quiser, por exemplo, armazenar 42, em vez dos 21 caracteres iniciais, voce terade 
aumentar a area de caracteres graficos em 21x8, ou seja 168 endere§os. Em 48K de 
RAM, o enderego inicial e 65368. Portanto, se precisamos de mais 168 endere§os, 
devemos mudar o infcio para 65368-168, ou seja, para 65200. Se dividirmos 65200 
por 256, obteremos 254,6875, ou seja, 254 e alguns quebrados. Multiplique 254 
por 256, e o resultado sera 65024. Mas 65200 - 65024 = 176. Entto, para uma area 
de 48 caracteres graficos definidos pelo usuario, precisamos fazer dois POKEs: um, 
POKE 23675, 176 e outro POKE 23676, 254. Digite agora, em modo imediato, 
PRINT USR “a”, e repita entao o programinha em modo imediato, mostrado aci- 
ma. Entre em modo grafico e pressione “a”. Retome ao tamanho inicial da area de 
graficos, e repita o programa, seguindo o procedimento normal. 

Nota: o comando NEW nao afeta essa area de caracteres graficos. 

Entendeu o procedimento? Treine bastaftte, pois isto e muito interessante. 
Lembre-se que a area de graficos so retorna ao seu comprimento padrao, atraves dos 
respectivos POKEs, ou entao se desligar o TK 90X. 


Acostume-se a utilizar um papel quadriculado a parte para desenhar os seus 
caracteres graficos, se nao quiser utilizar UDG 2, para facilitar a conversao em valo- 
res decimals ou em valores binarios, atraves de BIN. 

- VAL 

Esta fun?ao requer uma serie como argumento, cujo conteudo deve ser nume- 
rico. Ela entao converte em valor numerico a serie dada. 

E uma fun?ao muito util no sentido de economizar memoria, visto que um 
numero qualquer para ser armazenado na memoria RAM do TK 90X requer 5 by¬ 
tes. U tiliza -se esta fun§ao em series, e nao os numeros diretos, como por exemplo, 
em vez de se usar GOTO 900 emprega-se GOTO VAL “900”. 

- VAL$ 

Esta fun 5 ao requer uma serie entre aspas como argumento e retorna ao usua¬ 
rio a serie original. 

Experimente digitar o programa: 

10 LET a$= “123” 

20 PRINT VAL a$ 

30 PRINT VALS “a$” 

40 PRINT VAL$ “al” + STR$ (VAL a$) 

E assim nos encerramos as explica$oes de todos os comandos e todas as fun- 
?5es disponiveis na linguagem Basic do TK 90X. Agora, veremos um pouco os ca¬ 
racteres de controle. 

CARACTERES DE CONTROLE 

No TK 90X existem 12 caracteres de controle que podem ser utilizados pelo 
usuario. 

- CHR$ 6 - vlrgula 

Equivalente a PRINT, que faz a proxima posiflo de impressao saltar meia 
tela, verticalmente. 
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- CHR$ 8 - caractere a esquerda 

A posi?lo de impressao e modiflcada, no sentido de “retornar” urn caractere 
a esquerda (tecla de backspace em maquinas de escrever). 

Um uso util e particular que se pode obter com este caractere e o de sublinhar 
certas letras ou palavras, por exemplo: 

10 PRINT “TK 90X”; CHRI 8; CHRI 8; CHR$ 8; CHRI 8; CHRI 8; 
CHRf 8; OVER 1; “-” 

Para cada caractere que se quer sublinhar deve haver um CHRI 8. 

Outra utilizacao e a acentua§ao de palavras cm portugues, que pode ate ser 
mais facil do que se usassemos UDG 0... 

- CHR$ 9 - caractere 3 direita 

Inversamente ao anterior, este caractere de controle pula uma posicao para a 
direita, 

- CHR$ 13•ENTER 

A posicao corrente de impressao e alterada para ser impressa no ini'eio da 
proxima linha. Equivale a se usar “ ’ ” ap6s o comando PRINT, 0M mesmo a outro 
PRINT, numa mesma linha de programa, 

- CHR$ 16 ate 21 - comando de cores 

Estes caracteres de controle produzem cores provisorias. Eles sao, respectiva- 
mente, INK, PAPER, FLASH, BRIGHT, INVERSE e OVER. 

Por exemplo; 

10 PRINT CHRI 16; CHRI 3; CHRI 18; CHRI 1;CHRI 21; CHRI 1; 
“TK 90”; CHRI 19; CHRI 1;CHRI 17; CHRI 1;“TK90” 

- CHR$ 22-AT 

Tabulacao da posicao de impressao, a partir dos dois proximos numeros apos 
CHRI 22. O primeiro numero refere-se as linhas e o segundo, as colunas. 
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Por exemplo: 

PRINT AT 12,6; “TK 90X” 6 identico a 
PRINT CHRI 22; CHRI 12; CHRI 6;“TK90X” 

- CHR$ 23: TAB 

A posicao de impressao e modiflcada, no sentido de ser impressa na coluna es- 
pecificada pelos dois caracteres que seguem o CHRI 23. Experimente o programa: 

10 LET a=l: POKE 23692,255 

20 PRINT PAPER 7; CHRI 23; CHRI (RND * 5); CHRI 0; PAPER RND 
* 6.5; CHRI 23; CHRI (RND * 25 + 5); CHRI 0;a 

30 LET a = a + 1: GOTO 20 
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Capi'tulo III 


variaveis que controlam o sistema 


Os bytes na memoria, do endere?o 23552 ate o endere§o 23733, sao reserva- 
dos para uso especffico do sistema. Pode-se ver o conteudo de qualquer desses ende- 
reijos, e, convem ate anotar esses valores, pois podem ser uteis mais tarde. Para ver 
esses conteudos, digite: 

PRINT PEEK enderego 

E voce tambem pode mudar esses valores iniciais, sem perigo algum de alterar 
o hardware standard da maquina. E somente praticando, e “fu§ando”, que se desco- 
bre como ocorrem as coisas dentro dessa pequena maravilha. O maximo que pode 
acontecer, quanao se altera uma variavel de sistema, e urn “crash”, e o passo seguin- 
te nesse caso e desligar a miquina e tornar a liga-la. Os nomes dessas variaveis nao 
tern nada a ver com a linguagem Basic, e o computador nao as reconhece pelo nome 
(felizmente. . .). Voce pode usar em seus programas nomes semelhantes de variaveis 
- o computador nao vai confundir a sua variavel com uma variavel de sistema. 

As abreviafoes utilizadas na coluna 1 da tabela a seguir tern o seguinte signi- 
ficado: 

x - alterando o valor inicial da variavel, provavelmente ocorrera um “crash” 
no sistema. 

n — nao havera efeito algum, alterando o valor inicial. 
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0 numero da coluna 1 e o numero de bytes daquela variavel. Para dois bytes, 
o primeiro e o menos significativo - o contrario do que normalmente se espera. 
Portanto, para se dar um POKE de um valor v numa variavel de sistema de dois by¬ 
tes, de endere$o n, use 

POKE n, v-256 * INT (v/256) 

POKE n + 1, INT (v/256) 

E, para ver o valor, use a expressao: 

PRINT PEEK n + 256 * PEEK (n + 1) 

Se quiser alterar algum endere$o n, como no caso de aumentar a area de ca- 
racteres graficos defmidos pelo usuario, visto no capftulo anterior, voce deve efe- 
tuar alguns calculos: 

Chamemos de bms, o byte menos significativo e 
BMS, o byte mais significativo 

VARSIST - a variavel de sistema que se queira alterar. Os calculos sao: 

BMS = INT (n/256) 
bms = n - BMS * 256 
E, a seguir: 

POKE VARSIST, bms 
POKE VARSIST + 1,BMS 


VARIAVEIS DO SISTEMA - TABELA DE DADOS 
Nota Enderefo Nome Conteudo 


n8 23552/5C00 KBDWORK 


nl 23560/5C08 KEYPRS 


Esta variavel consiste em 8 bytes, cada 
um deles contendo informa$ao sobre a 
tecla pressionada, ou o periodo de repe- 
ti§ao o codigo em modo “extended” etc. 

Esta variavel contem sempre o c6digo da 
ultima tecla pressionada, tendo em conta 
o modo. S6 e alterada quando se aperta 
outra tecla. A repeti$ao automatica afeta 
a variavel. Passando-se a zero, pode-se 
verificar se foi pressionada alguma tecla. 
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Nota Endere 90 Nome 

1 23561/5C09 RPTDLAY 

1 23562/5C0A RPTCCLE 

n2 23563/5C0B PTDEF 

nl 23565/5C0D K CLR 

n2 23566/5C0E TVCLR 

x38 23568/5C10 PSTRM 

2 23606/5C36 PTBLCHR 


Tempo, em 60 ciclos por segundo, duran¬ 
te o qual 6 necessario pressionar uma te- 
cla para acionar o auto-repeat (repeti 9 ao 
automatical Possui o valor inicial 35, po- 
dendo ser alterado para mais ou para me- 
nos. (Cuidado com valores muitos baixos 
- a repet^ao e muito rapida...) 

Atraso, em 60 ciclos por segundo, entre 
as sucessivas repetigoes de uma tecla. Ini- 
cialmente cont6m o valor 5. Pode-se dimi- 
nuir para o mfnirno de 1, a fim de tornar 
mais rapida a repet^ao. 

Endere 90 dos argumentos das fiu^oes de- 
finidas pelo usuario. Valor inicial 0. 

Quando e escrito diretamente no teclado 
um codigo de comando, o segundo byte, 
ou seja, a cor e o uso ou nao de FLASH, 
e guardado aqui, enquanto o codigo de 
INK, PAPER, FLASH ou INVERSE 6 im- 
presso. Depois disso, a ROM consulta este 
byte para impressao a seguir do codigo de 
comando. 

Esta variavel e usada pela rotina de im¬ 
pressao, para guardar AT, TAB e os co- 
mandos de cor dirigidos para a tela. 

Esta variavel e usada para guardar os des- 
locamentos de CHCADD. Para um total 
de 19 arquivos, sendo 16 do usuario e 3 
da maquina, existe um deslocamento. 
Quando este e somado a CHCADD, apon- 
ta para um endere 90 que constitui o ini- 
cio da rotina de tratamento desse arquivo. 

Indica o endere 9 o do conjunto de caracte- 
res, menos 256 (incluindo no conjunto 
todos os caracteres de codigo entre 32 e 
127, padrao ASCII). A variavel contem 
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Nota Endere 90 Nome Conteudo 


1 23608/5C38 BUZCCLE 

1 23609/5C39 KCLICK 

1 23610/5C3A ERRCD 

xl 23611/5C3B SFLAG 0 

xl 23612/5C3C SFLAG 1 

x2 23613/5C3D PERR 


normalmente o endere9o 15360 ou 4C00 
(conjunto de caracteres da ROM), mas es¬ 
te valor pode ser alterado, levando-a a 
apontar para um novo conjunto de carac¬ 
teres definido pelo usuario. 

Som produzido pelo computador quando 
uma linha de programa em edi 9 ao ultra- 
passa o comprimento de 23 linhas da tela 
(tela cheia). Para alterar este comprimen¬ 
to, modifique o conteudo desta variavel, 
inicialmente em 64. 

Dura 9 ao do som produzido ao se pressio¬ 
nar uma tecla. Pode-se aumentar seu valor 
inicial, a fim de se tornar mais “simpati- 
co” o som produzido. 

Indica o codigo de mensagens menos U 
Inicialmente em 255. Se for alterada por 
uma listagem de programa Basic, quando 
este programa terminar, a maquina impri- 
me a mensagem de erro desejada. 

Esta variavel contem um byte cujos valo¬ 
res contem flags (indicadores) que contro¬ 
lam o sistema Basic. 

Flags associados a impressao na .tela> e na 
impressora. 

Esta variavel aponta para um elemento da 
pilha da maquina. Quando ocorre um er¬ 
ro, e para este endere 90 que a execu 9 ao 
salta depois de a pilha ser limpa por RST 
08 (instrugao em codigo de maquina). Al- 
terando este elemento, e possivel escrever 
novas rotinas de tratamento de erro. 

Esta variavel aponta para o endere 90 de 
retomo da pilha da maquina, para o qual 
salta a execu 9 ao apos uma listagem auto- 
matica. 


n2 23615/5C3F PLIST 
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Conteudo 


Nota Endere 9 o 

Nome 

nl 

23617/5C41 

CURSOR 

2 

23618/5C42 

LNJMP 

1 

23620/5C44 

INSTRNR 

2 

23621/5C45 

EXCLINE 

1 

23623/5C47 

SUBLEXC 

1 

23624/5C48 

BORCLR 

2 

23625/5C49 

CURLINE 

x2 

23627/5C4B 

VARADD 

n2 

23629/5C4D 

XVARADD 

x2 

23631/5C4F 

CHCADD 

x2 

23633/5C51 

IOADD 

x2 

23635/5C53 

PROGBAS 


Esta variavel especifica o cursor em uso 
(K, L, C, E ou G). 

Linha para onde deve saltar a execu 9 ao 
do prograxna. Usada nas instnupoes GOTO 
e GOSUB. 

Numero da declara 9 ao da linha para onde 
deve saltar a execu 9 ao. Alterando primei- 
ro a variavel LNJMP e depois esta, for- 
9 a-se um salto para uma determinada de- 
clara93o da linha. 

Numero da linha onde se encontra a ins- 
tru 9 ao em execu 9 ao. 

Numero da instru 9 ao em execu 9 ao dentro 
de uma linha. 

Esta variavel contem os atributos da parte 
inferior da tela. E uma experiencia muito 
interessante alterar seu valor e imprimir 
mensagens com diversos valores. 

Numero da linha onde se encontra o 
cursor. 

Indica o endere 90 inicial da area de varia- 
veis Basic, quando da execu 9 ao de um 
programa. 

Endere 90 da variavel em atribui 9 ao. 

Indica tabela de endere 90 s usada por 
PSTRM. 

Indica o endere 9 o da tabela anterior (de 
endere 90 s de tratamentos de arquivos) 
que esta sendo usado pela rotina de tra- 
tamerito. 

Indica o endere 90 de infcio da area de 
programas Basic. 


Variaveis que controlam o sistema 


61 


Nota Endere 9 o Nome 

x2 23637/5C55 NEXEXC 

x2 23639/5C57 ENDDATA 


x2 

23641/5C59 

IN ADD 

2 

23643/5C5B 

CURADD 

x2 

23645/5C5D 

CHNXADD 

2 

23647/5C5F 

SYCHADD 

x2 

23649/5C61 

WORK PT 

x2 

23651/5C63 

STKEND 

x2 

23653/5C65 

ADSPFREE 

nl 

23655/5C67 

BREGCAL 

n2 

23656/5C68 

MEMCADD 

1 

23658/5C6A 

SFLAG 2 

xl 

23659/5C6B 

SIZE 


Conteudo 


Indica o endere 90 da linha de programa 
Basic seguinte a que esta sendo execu- 
tada. 

Aponta para o separador final do ultimo 
elemento de uma listagem DATA. Se nao 
existir DATA no programa, aponta para 
80h, no flm das informa 9 oes do canal. 

Endere 90 da instru 9 ao a ser digitada no 
teclado. 

Endere 90 do cursor no interior da linha 
avaliada. 

Endere 9 o do proximo caractere a ser in- 
terpretado. 

Endere 9 o do caractere que se encontra 
depois do sinal “?” 

Endere 90 da area de trabalho temporario. 

Endere 90 inferior da pilha de calculo. 

Enderego do inicio da memoria livre. 

Registro de calculo usado para fins diver¬ 
sos (contagem). 

Endere 9 o usado para as seis memorias de 
calculo (normalmente MENSPCAL, mas 
nem sempre). 

Mais flags controladoras do sistema. 

Numero de linhas (incluindo uma em 
branco), da parte inferior da tela. Elapo- 
de ser alterada fazendo o programa ocu- 
par toda a tela, mas cuidado: antes de 
cada instru 9 ao que ocupe esta area (por 
exemplo, INPUT), a variavel devera con- 
ter o valor original (2), ou seja, reabrir es- 
pa 90 na parte inferion 
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Nota Endere?o 

Nome 

2 

23660/5C6C 

LIST NR 

2 

23662/5C6E 

CONTJMP 

1 

23664/5C70 

CONTNR 

nl 

23665/5C71 

SFLAG 3 

n 2 

23666/5C72 

STRVLEN 

n 2 

23668/5C74 

SYTADD 

2 

23670/5C76 

INITRND 

3 

23672/5C78 

TVCOUNT 

2 

23675/5C7B 

UDGRAPH 

1 

23677/5C7D 

LSTPLOT 

1 

23678/5C7E 

COORDS 

1 

23679/5C7F 

POSIMPR 

1 

23680/5C80 

PRTADD 


Conteudo 

Numero da iinha superior em listagem au- 
tomatica. 

Numero da linha para onde salta o co- 
mando CONT. 

Numero da instru 9 ao da linha destino 
apos o comando CONT. 

Mais flags controladoras do sistema. 

Comprimento da variavel serie em atribui- 
9 S 0 . 

Endere 90 do elemento seguinte na tabela 
de sintaxe da ROM. Esta tabela define o 
local onde se encontra a rotina correspon- 
dente a cada comando e o modo de obter 
a informagao necessaria. 

O primeiro numero para a instru^ao 
RND. Esta variavel e inicializada por 
RAND. 

Contador de imagens de 3 bytes, incre- 
mentado a cada ciclo de aliment a 9 ao. 

Endere 90 do primeiro caractere grafico 
definido pelo usuario. RAMTOP nao afe- 
ta esta area. 

Usada para armazenamento provisorio da 
coordenada x quando sao realizados cal- 
culos para defini 9 ao da posi 9 ao de PLOT. 

Identica a anterior, mas para a coorde¬ 
nada y. 

Numero da posi 9 ao de impressao, em 32 
colunas. 

Byte menos significativo do endere 90 da 
posi 9 ao que se segue para LPRINT (no 
buffer da impressora). 


Nota Endere 9 o Nome 

1 23681/5C81 


2 

23682/5C82 

HVBFFIN 

2 

23684/5C84 

DFPSPRT 

2 

23686/5C86 

DFPSPRTL 

xl 

23688/5C88 

HVPOS 

xl 

23689/5C89 


x 2 

23690/5C8A 

HVPOSL 

1 

23692/5C8C 

SCRINC 


1 23693/5C8D 

ATCLRP 

I 23694/5C8E 

MASKCLRP 


nl 

23695/5C8F 

ATCLRT 

nl 

23696/5C90 

MASKCLRT 

1 

23697/5C91 

SFLAG 4 


Conteudo 


Nao usada pelo sistema. Alguns progra- 
mas em linguagem de maquina tern a ins- 
tru 9 ao RET (201) armazenada nesta po- 
si 9 ao, para evitar que, ao se dar o coman¬ 
do LOAD CODE, se tenha acesso aos 
seus codigos... 

Numero de colunas (32) e linhas (24) do 
final da area de entrada. 

Endere 90 da posi 9 ao PRINT no arquivo 
de imagens. Pode ser dirigida para outra 
posi 9 ao. 

Identica a anterior, mas para a parte infe¬ 
rior da tela. 

Numero de colunas para a posi 9 ao PRINT. 

Numero de linhas para a pos^ao PRINT. 

Identica a anterior, mas para a parte infe¬ 
rior da tela. 

Contador de “scroll” da imagem: contem 
uma a menos que o numero de scrolls rea¬ 
lizados antes de a imagem parar imprimin- 
do a mensagem “scroll?”. Se for colocado 
um valor maior aqui, a imagem rolata 
ininterruptamente. 

Atributos permanentes defmidos por de- 
clara 9 oes INK, PAPER etc. 

Usado para atributos transparentes. Qual- 
quer bit igual a 1 indica que o atributo cor- 
respondente nao e retirado de ATCLRP, 
mas do valor que ja esta na tela. 

Atributos provisorios em uso, em instru- 
9 oes tipo PLOT, DRAW etc. 

Como MASKCLRP , mas provisorio. 

Outras flags controladoras do sistema. 



64 


Basic Avangado para o TK 90X 


Nota Enderepo Nome Conteudo 

n 30 23698/5C92 MEMSPCAL E nesta area que a unidade de calculo arit- 

metico pode guardar ate seis numeros di- 
ferentes, em notapao de ponto flutuante, 
com 5 bytes cada, utilizando memorias 
especiais. 

2 23728/5CB0 NMIVCT Ex-vetor de interrupcao, nao usado devi- 

do as caracterfsticas de programapao da 
ROM. Pode ser usada sem restripSes pelc 
usuario. 

2 23730/5CB2 RAMTOP Esta variavel contem o enderepo do ulti¬ 

mo byte da area Basic. 

2 23732/5CB4 MEMAVLB Enderepo do ultimo byte fi'sico da RAM. 

Alguns comentarios sobre as variaveis de sistema: 

1 - KBDWORK 

Esta variavel armazena: 

a- 255 se nenhuma tecla foi pressionada ou 

b- o codigo do maior caractere em branco, a esquerda, impresso em uma tecla. 

No ultimo caso, o codigo pode ser considerado como sendo aquele caractere 
que INKEYS produziria se CAPS LOCK (tecla 2) estivesse acionado. 

Esta propriedade pode ser usada com vantagens, quando se usa INKEYS em 
urn programa. Digite o programa a seguir e veja o efeito que CAPS SHIFT ou 
SYMBOL SHIFT produzem quando pressionados com outras teclas: 

10 PRINT AT 0,0; INKEY $; “ ”: REM 4 espapos dentro das aspas 

20 GOTO 10 

Como se pode notar, o caractere produzido nao depende apenas de qual tecla 
foi pressionada, mas tambem em que modo se encontrava o computador. Isto con- 
duz a linhas meio “complicadas” quando se usa INKEYS, por exemplo, ao final de 
um programa: 

9000 PRINT “Quer rodar outra vez? (s/n)”: PAUSE 0: 


Variaveis que controlam o sistema 


65 

IF INKEYS = “s” OR INKEYS = “S” OR INKEYS = “NOT” THEN RUN 
9010 NEW 

Podemos utilizar tambem o byte do enderepo 23552: 

10 PRINT AT 0,0; CHRS PEEK 23552; “ ”; 

20 GOTO 10 

Voce vai perceber que para qualquer tecla pressionada, o caractere produzido 
sera aquele que aparece em branco no lado esquerdo da tecla que esta sendo pressio¬ 
nada. A solupao para o problema: 

9000 PRINT “Quer rodar outra vez? (s/n)”: PAUSE 0: 

IF CHRS PEEK 23552 = “S” THEN RUN 

9010 NEW 

Se pretende usar estatecnica em seus programas, proceda da seguinte maneira: 
10 LET kbd = 23552 
E mais adiante, 

... IF CHRS PEEK kbd = ... THEN... 

Agora experimente o programa abaixo, e saiba qual enderepo desta variavel 
utilizar em seus programas: 

10 FOR f= 23552 TO 23559 

20 PRINT INKEYS; “ ”; CHRS PEEK f; 

30 GOTO 20 

Quando quiser mudar para o proximo enderepo, ou o proximo f, basta digitar 
NEXT f. 

Notou que a penultima tecla pressionada e impressa com a ultima, atraves de 
CHRS PEEK f/ ? Retire este comando da linha 20 e preste atenpSo nas diferenpas. 

2 - KEYPRS 

O conteudo deste enderepo vai produzir o codigo da ultima tecla pressionada, 
esteja ou nao sendo pressionada outra. Como no caso-da variavel anterior, se mais 
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de uma tecla e pressionada, entao o codigo da primeira a fazer contato tem priori- 
dade sobre a outra. E importante notar que, embora CAPS SHIFT ou SYMBOL 
SHIFT sozinhas nao alterem o conteudo de KBDWORK, ou mesmo de INKEYS, 
juntas produzem o codigo 14, que normalmente e usado para representa^o de nu- 
meros em listagens Basic do TK 9OX. 

Existem outras quatro combinasoes de teclas que produzem valores para by¬ 
tes de 23560 e codigos de INKEYS, que nao aparecem no manual do TK 90X. Sao 
elas: 

Teclas normalmente usadas Valor do c6digo 

para produzir: INKEY $ 

GRAFICOS (CAPS SHIFT & 9) 15 

TRUE VIDEO (CAPS SHIFT & 3) 4 

VIDEO INVERSO (CAPS SHIFT & 4) 5 

CAPS LOCK (CAPS SHIFT & 2) 6 

3 - RPTDLAY e RPTCCLE 

Experimente rodar o programa abaixo, que e auto-explicativo, e observe o 
que acontece com o dispositivo de repet^ao automatica de teclado, e o tempo de 
leitura do teclado: 

10 PRINT “RPTDLAY - 23561 =”; PEEK 23561 ’ “RPTCCLE - 23562=”; 
PEEK 23562 

20 LET a=PEEK 23561: LET b=PEEK 23562 
30 INPUT “Digite valor para mudar RPTDLAY”; m 
40 INPUT “Digite valor para mudar RPTCCLE”; n 
50 POKE 23561, m: POKE 23562, n 
60 INPUT “Experimentar digitar qualquer coisa”; cl 
70 PRINT c$ 

80 POKE 23561, a: POKE 23562, b 

90 PRINT “Valor usado para RPTDLAY=”; m; “Valor usado para 
RPTCCLE=”; n 

100 INPUT “Outra tentativa (s/n) ?”; al 


110 IF a$ = “s” THEN RUN 
120 STOP 

4 - MUDANDO MODOS DO CURSOR 

A variavel de sistema de endere?o 23617 especifica o modo do cursor, e, atra- 
v4s dela, oprogramador pode for^ar apenas o modo grafico e o modo extendido, no 
proximo comando INPUT. 

Para modo grafico: POKE 23617,2: INPUT a$: PRINT a$ 

Para modo extendido: POKE 23617,1: INPUT a$: PRINT aS 
Experimente o programa, alternando esses dois POKEs: 

10 FOR f = 0 TO 255 
20 PRINT f; TAB 8; 

30 INPUT a$ : PRINT a$;: INPUT aS: PRINT a$ 

40 NEXT f 

Portanto, atraves de cursor, podemos apenas entrar em modo grafico e modo 
extendido. 

Atraves de uma variavel “misteriosa”, localizada no endere^o 23658, po¬ 
demos tambdm entrar em modo maiusculo (CAPS LOCK). Digitando-se POKE 
23658,8, o endere^o de SFLAG 2, automaticamente estamos com letras maiusculas. 

Isso pode facilitar em certos programas que possuam uma linha do tipo 

100 INPUT “Quer rodar outra vez (s/n)”; s$: IF s$ = “S” OR s$ = “s” 
THEN RUN 

Podemos passar esta linha para: 

100 POKE 23658,8: INPUT “Quer rodar outra vez (s/n); sS: IF s$ = “S” 
THEN RUN: POKE 23658,0: REM Entra em modo maiusculo e sai desse mo¬ 
do atraves de POKE 23658,0 

Pode-se, tambem, dependendo do tipo de programa, perguntar logo de infcio 
se deseja trabalhar somente em letras maiusculas ou nao. 

Esta tecnica e muito interessante quando existem nos programas diversos co- 
mandos tipo INPUT e INKEYS. 
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5 - CORES DA TELA 

BORCLR 

Embora o TK90Xprotejaousuario contra acidentes que fazem INK e PAPER 
em comandos INPUT serem da mesma cor, voce, se quiser, pode alterar somente as 
duas linhas da parte inferior do video, alterando os valores da variavel de sistema 
BORCLR, de endere?o 23624. Isto pode ser particularmente interessante, quando 
nao se quer de modo algum que alguem veja a listagem de seu programa, e, desta 
forma, nao e permitido imprimir qualquer coisa na parte inferior da tela. 

E interessante notar que, atraves do uso dessa variavel, podemos tambem fa- 
zer FLASH e BRIGHT nas linhas de INPUT, adicionando: 

128 para FLASH 1 e 

64 para BRIGHT 1 

0 novo valor de BORCLR permanece inalterado ate ser executado um novo 
comando BORDER ou um NEW. 

Por exemplo, para produzir uma borda magenta com tinta amarela e papel 
magenta, nas linhas inferiores, com FLASH 1 e BRIGHT 1, digite: 

BORDER 3: POKE 23624,128 +64 + 3*8+6: CLS 

ATCLRP - MASKCLRP - ATCLRT - MASKCLRT 

Estas variaveis do sistema simplesmente armazenam os valores que estao sen- 
do usados para INK, PAPER, BRIGHT e FLASH. A diferen^a entre os nomes, ou 
seja, as letras P e T significam Permanente ou Temporario (estas, quando incluidas 
em algum comando de saida de dados). 

ATCLRP e ATCLRT sao pouco utilizadas, mas para referenda os valores a se¬ 
rem adicionados nelas, para tratamento de cores, sao: 

ATCLR = 8 * (cor de PAPER) + cor da INK +{128 para FLASH 1) + (64 pa¬ 
ra BRIGHT 1) 

MASKCLRP e MASKCLRT sao mais uteis. Ocupam respectivamente os ende- 
re$os 23694 e 23696. 

Qualquer bit de um byte de uma destas variaveis, que tiver o valor 1, mostra 
que o bit correspondente de atributos para impressao deve ser tornado da posigao 
corrente de impressao da tela, como no caso de INK, PAPER, BRIGHT e FLASH 8. 


0 mais interessante destas variaveis e que nos podemos limitar seu efeito a 
apenas cores primarias (azul, vermelho e verde), de codigos do TK, respectivamente 
1, 2 e 4. Os valores para POKE nas varidveis sao: 


BIT 

EFEITO 

VALOR 

0 

azul INK 8 

1 

1 

verm INK 8 

2 

2 

verde INK 8 

4 

3 

azul PAPER 8 

8 

4 

verm PAPER 8 

16 

5 

verde PAPER 8 

32 

6 

BRIGHT 8 

64 

7 

FLASH 8 

128 
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6-0 RE LOG 10 DO TK 90X 

Existe, no conjunto das variaveis do sistema do TK 90X, uma variavel, que 
constantemente altera seus valores, como que contando “tempo”, chamada TV- 
COUNT, que possui seu valor inicial incrementado 60 vezes por segundo. Esta fre- 
qiiencia e igual a freqiiencia ou ciclagem da area, e tamb&n o numero de vezes por 
segundo que uma nova imagem e enviada a televisao para formar o que vemos. 

TVCOUNT e inicializada em zero, quando o computador e ligado, e incremen- 
tada acada 20 milissegundos aproximadamente, a menos que um comando SOUND, 
uma opera 9 ao com fita cassete ou um outro periferico estejam ligados ao TK 90X. 

Esta e a justificativa para o comando PAUSE n, que significa simplesmente 
“aguarde ate que TVCOUNT seja incrementado de n”. 

TVCOUNT esta armazenada em 3 bytes: 23672, 23673 e 23674. Cada byte 
tern 8 bits, e o valor maximo de TVCOUNT € 2 elevado a 24 menos 1, ou seja, 
16777215, o que corresponde a aproximadamente 3 dias, 21 horas e alguns minu- 
tos, a partir do momento em que o computador for ligado (se fizer esta experien- 
cia, fa 9 a-a antes que acabe a garantia). Atingindo esse valor, TVCOUNT 6 zerada e 
inicia nova contagem. 

0 valor de TVCOUNT pode ser encontrado atraves da linha: 

PRINT PEEK 23672 + 256 * PEEK 23673 + 65536 * PEEK 23674 

Experimente digitar o programa a seguir, que Simula um rel6gio muito simples : 
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10 LET tvcount = 23672 
20 LET min = 0 

30 POKE tvcount, 0:POKE tvcount + 1,0: POKE tvcount +2,0 
40 PRINT AT 1,7; “Segundos = ”; 

50 LET t = PEEK tvcount + 256 * PEEK (tvcount + 1) + 65536 * PEEK 
(tvcount + 2) 

60 LET seg =INT (t/50): REM desconte um tempo de processamento 
70 PRINT AT 1,1; seg 
80 LET min = INT (seg/60) 

90 PRINT AT 3,7; “Minutos = AT 3,18;min 
100 GOTO 50 

O potencial desta variavel e muito grande: serve de contador de tempo em diver- 
sos tipos de programas, ate mesmo para aqueles que pretendem dar assessoria ao 
computador por hora! Serve de alarme, ou mesmo um sofisticado relogio, como se 
pode ver no capitulo VIII do livro. 

7 - ROLANDO A IMAGEM 

Um pequeno problema que surge para programadores em Basic de TK 90X e 
como nao deixar o computador perguntar “Scroll?” a cada vez que a tela e preen- 
chida com dados. 

Existe uma variavel de sistema,’ chamada SCRINC (de INCrementador de 
SCRoll), de endere$o 23692, que possui o valor de 1 a menos que o numero de li- 
nhas de tela que serao roladas para cima ate a prdxima pergunta “Scroll?” (normal- 
mente, esse valor 6 menor do que 23). Portanto, devemos colocar nessa variavel um 
valor maior do que o numero de linhas que rolam para cima na tela, ou seja, de ime- 
diatp, 255, que e o valor m^ximo. 

Experimente: 

10 PRINT AT 21,31’ 

20 PRINT PEEK 23692 
30 GOTO 20 


Rode o programa e introduza a seguir a linha 
15 POKE 23692,255 e rode novamente. 


8 - VARIAVEIS DE CONTROLE DE MEMORIA 

Existem algumas variaveis do sistema que servem apenas para o computador 
saber o estado em que se encontra a sua memoria, como, por exemplo, saber onde 
come?a o programa em Basic, onde estao as variaveis desse programa etc. Muitas 
destas variaveis do sistema tern pouco interesse para o programador. Veremos algu¬ 
mas delas. 


PROGBAS 

Os endere^os 23635 e 23636 dizem ao computador onde come^a o programa 

Basic 

PRINT PEEK 23635 + 256 * PEEK 23636 da o valor de PROGBAS, ou seja, 
o initio da area de programas Basic. Some-se cinco a este valor e teremos o endere- 
go do primeiro caractere apos a declaraijao REM da primeira linha de um programa 
qualquer (sem microdrive ou interface), cheia de codigos esquisitos, que sao, na ver- 
dade, uma rotina em codigo de maquina. 

Se voce pretende criar uma rotina em linguagem de maquina e armazena-la 
dessa forma, nao esque?a de deixar apos a declaracao REM tantos espafos quantos 
forem os bytes da sua rotina. 

Para introduzir uma mensagem de autor de programa e deixa-la protegida na 
primeira linha, digite: 

POKE (PROGBAS),0: POKE (PROGBAS + 1),0 

Se o numero anterior da primeira linha do seu programa for menor do que 
256, entao o primeiro dos dois comandos acima pode ser omitido. Este procedi- 
mento “renumera” a primeira linha do programa, atribuindo a ela o numero 0, tor- 
nando impossfvel uma simples ediijao dessa linha. 


VARADD 

Esta variavel armazena o endereco das variaveis Basic, atraves da expressao: 
PRINT PEEK 23627 + 256 * PEEK 23628 
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As variaveis Basic estao situadas imediatamente ap6s o programa Basic na me- 
moria do TK 90X; portanto, nos podemos encontrar o comprimento de um progra¬ 
ma atraves da simples subtragao de PROGBAS de VARADD: 

PRINT “0 programa tern”; 256 * (PEEK 23628 - PEEK 23636) + (PEEK 
23627 - PEEK 23635); “bytes de comprimento” 


RAMTOP e ADSPFREE 

Estas duas variaveis podem ser utilizadas para medir a quantidade de memoria 
disponivel ao usuario. No mapeamento da memoria do TK 90X, entre ADSPFREE 
e RAMTOP, existem apenas o espaco livre, a pilha da maquina e a pilha de GOSUB. 

RAMTOP e dada por: 

PRINT PEEK 23730 + 256 * PEEK 23731 

E ADSPFREE por: 

PRINT PEEK 23653 + 256 * PEEK 23654 

Como alternativa da segunda expressao, existe na ROM do TK 90X uma roti- 
na que faz isso, e que comega no enderego 7962. Em vez de toda essa expressao po- 
de-se simplesmente digitar PRINT USR 7962, o que da no mesmo. 

Para estimar a quantidade de memoria disponivel, subtraia ADSPFREE de 
RAMTOP. 

Ainda sobre ADSPFREE, voce provavelmente deve saber como parar aquele 
programa maravilboso que quando carrega da fita, automaticamente ja entra rodan- 
do. Sabe-se que ele foi gravado com SAVE. . . LINE. .. Para interromper esse pro¬ 
grama, deve-se usar MERGE “ ”, em vez de LOAD “ ”, o que cria um grande pro¬ 
blems para as software-houses. . . Pois bem, uma maneira de resolver esse problema 
e gravar o programa como sendo um bloco de bytes, atraves da insergSo das seguin- 
tes linhas no final do programa: 

9997 LET adspfree = PEEK 23653 + 256 * PEEK 23654 

9998 SAVE “nome” CODE 23552, adspfree + 23500 

9999 RUN 

Desta forma, toda a memoria e enviada para a fita cassete, incluindo o progra¬ 
ma, as variaveis Basic, as variaveis do sistema, a pilha do calculador, como um bloco 
de codigos, de tal forma que, quando for carregado de volta ao computador, este vai 


iniciar o seu processamento a partir da linha em que parou, ou seja, a partir da ulti¬ 
ma linha do programa (nao se esquega de que, para carregar o programa, voce deve 
usar LOAD “ ” CODE). 

9 - DIVERSAS VARIAVEIS 

Para saber qual o numero da proxima linha a ser interpretada, digite: 

PRINT PEEK 23662 + 256 * PEEK 23663 (sera o comando TRACE?) 

E, para saber qual o numero da proxima declaraglo, naquela linha, digite: 

PRINT PEEK 23664 

Os enderegos 23677 e 23678 armazenam respectivamente as coordenadas X e 
Y do ultimo ponto plotado (variaveis de sistema LSTPLOT e COORDS). Voce pode 
criar duas variaveis em Basic, usando linhas com PLOT ou DRAW; se comegar o 
programa com 

LET xo = 23677: LE yo = 23678 

Toda vez que precisar saber qual foi o ultimo ponto plotado, PEEK xo e 
PEEK yo lhe darao as coordenadas desse ponto. 

Para desenhar uma linha a partir do ultimo ponto plotado 

DRAW (x - PEEK xo), (y - PEEK yo) 

Ou entao, simplesmente, dar POKEs nessas variaveis, para alterar a posigao do 
ultimo ponto plotado, ou entao para desenhar pontos e retas, sem utilizar os co- 
mandos PLOT e DRAW. 


HVPOS 

Armazena a posigao corrente de impressao, mas nao da maneira que voce deve 
estar aguardando. Se lhe foi dado algum comando tipo PRINT AT l,c, entao 

enderego 23688 armazena 33 - c 

enderego 23689 armazena 24 -1 

Portanto, para encontrar a posigao corrente de impressao 

LET 1 = 24 - PEEK 23689 
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LET c = 33 - PEEK 23688 

Se voce pretende usar essa tecnica em seus programas, ate mesmo em conjun- 
to com SCREENS, entao proceda da seguinte forma: 

DEF FN y( ) = 24 - PEEK 23689 

DEF FN x( ) = 33 - PEEK 23688 

INITRND 

Esta e a variavel utilizada para gerar o ultimo numero randomico (aleatorio), e 
estd armazenada nos endere 9 os 23670 e 23671. Experimente digitar: 

PRINT RND, (PEEK 23670 + 256 * PEEK 23671)/65536 

E serao impressos dois valores iguais. Cada vez que RND e usada, INITRND e 
alterada pelo computador da seguinte maneira: 

Novo INITRND =(75 (INITRND + 1)) mod. 65537 - 1 

0 que corresponde em Basic a: 

LET INITRND =75 * (INITRND + 1): LET INITRND = INITRND - 65537 
* INT (INITRND/65537) -1 

0 novo valor de INITRND e entao armazenado e dividido por 65536, para 
produzir um valor para RND entre 0 e 1. 

DFPSPRT e DFPSPRTL 

Estas duas variaveis de sistema, armazenadas nasloca 9 oes 23684 e 23686, ar- 
mazenam o endere 90 no arquivo de imagens das pos^oes de impressao, tanto para a 
parte maior da tela quanto para a parte inferior. 

Normalmente nao usamos PEEK e POKE no arquivo de imagens, pois temos 
tres comandos que suprem qualquer necessidade, que sao POINT (x,y), PRINT e 
SCREENS! (x,y). 

Para qualquer posi 9 ao de impressao na tela, nas pos^oes X e Y, temos que: 

DFPSPRT = 2048 * INT (Y/8 + 8) + (Y - 8 *JNT (Y/8)) * 32 + X 

Nao se esque 9 a de que cada caractere na tela e armazenado em 8 bytes na me- 
moria (um para cada linha de caractere). Os endere 90 s desse grupo de 8 bytes de ca¬ 


da caractere da tela sao separados de outro na mesma posi 9 ao, em outra parte do 
arquivo de imagem, por 256. Portanto, se DFPSPRT e a primeira linha, na segunda 
e DFPSPRT + 256, na terceira e DFPSPRT + 512, e assim por diante. 

Experimente digitar o programa a seguir, que ilustra bem essas experiencias: 

10 BORDER 0: PAPER 0: INK 6: CLS 

20 PRINT AT INT (RND * 22), INT (RND * 32); 

30 LET DF =PEEK 23684 + 256 * PEEK 23685 

40 FOR c = 0 TO 1 

50 FOR a = DF TO DF + 7 * 256 STEP 256 

60 READ b: POKE a, b: NEXT a 

70 NEXT c 

80 RESTORE: GOTO 40 

90 DATA 24, 60,126, 25, 31,254, 60, 24, 248, 60, 23, 15, 15, 23, 60, 248 

Se voce realmente quiser proteger seus programas contra aqueles “piratas pro- 
fissionais”, de um POKE na variavel de sistema P ERR, de endere 90 23613, com 
valor 0. 

POKE 23613,0 

E coloque esse comando como sendo o primeiro da primeira linha do progra¬ 
ma, para entao experimentar dar um BREAK no programa e ver o que acontece. ., 
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Capftulo IV 


algo sobre os comandos in e out 


Uma falha gritante do manual do TK 90X! 

Estes dois comandos sao import ant fssimos, tanto a nivel de Basic quanto a nf- 
vel de linguagem de m£quina. 

Os microcomputadores, ou melhor, qualquer computador, devem poder co- 
municar-se com o exterior. Este mundo exterior inclui normalmente o leitor, a sua 
televisao, o seu gravador, uma impressora, microdrives, enfim, tudo que possa 
ser conectado a CPU do micro. 

Dividimos os modos de comunicagao de um computador em duas categorias 
principal: as entradas e as saidas. As entradas sao as informagoes recebidas pelo 
computador, atraves de qualquer periferico de entrada. As saidas, ao contrario, sao 
as informagoes enviadas pelo computador para um periferico de saida. Para poder 
comunicar-se com o exterior, o computador, qualquer que seja ele, utiliza o que 
chamamos de portas {ports, em ingles). O nome em si tern logica. 

0 microprocessador pode ler e escrever dados na memoria atraves das instru- 
goes PEEK e POKE. Mas, para ele, nao interessa se esta lendo ou escrevendo na 
ROM ou na RAM; ele sabe somente que existem no maximo 65536 enderegos dis- 
poniveis de uma vez, para sua pesquisa. 

Numa total analogia, podemos dizer que existem 65536 portas de entrada ou 
saida (em ingles, I/O ports - de Input e Output). Estas, como virnos, sao usadas pe¬ 
lo sistema para comunicagao com o meio exterior, e podem ser controladas pela 
linguagem Basic, atraves das instrugoes IN e OUT. 

A instrugao IN e similar a PEEK. 


IN enderego 

Possui um argumento, o enderego da porta, e seu resultado e o byte lido 
daquela porta. 

OUT e uma instrugao similar a POKE, 


OUT enderego, valor 

Escreve naquela porta especificada o valor determinado. 

A maneira como esse enderego e interpretado depende muito dq estado do 
computador, ou seja, se existe um periferico conectado a ele. No TK 90X, 6 prefe- 
rfvel imaginarmos esses enderegos escritos na sua forma binaria, porque cada bjt do 
enderego trabalha de nianeira independente, ou seja, depende do estado da mdqui- 
na, ou da finalidade do processo. 

Sao no total 16 bits, assim denominados: 

A15,A14,.... A10,.A2, Al, AO. 

Onde AO e o primeiro bit, Al e o segundo, e assim por diante, ate A15, que e 
o ultimo. Normalmente esses bits tern o valor 1, mas se um deles tern valor zero, sig- 
nifica que o computador deve realizar uma tarefa especifica. Os bits AG, Al, A2, 
A3 e A4 sao os mais importantes. 0 computador nao pode fazer mais que uma tare¬ 
fa por vez, portanto apenas um destes cinco bits deve ser 0, de cada vez, Os bits A6 
e A7 sao ignorados. Os melhores enderegos para serem utilizados sao aqueles multi¬ 
ples de 32 menos 1. 

Os bits de A8 em diante, algumas vezes, transmitem alguma informagSo extra 
ao computador. 

O byte lido ou escrito tern 8 bits, que sao chamados de DO a D7. 

Existe um grupo de enderegos de entrada, que tanto leem o teclado como o 
soquete EAR do micro. 

O teclado e dividido em oito meias linhas de cinco teclas cada: 

- IN 65278 le de CAPS SHIFT ate V 

- IN 65022 le de A ate G 

- IN 64510 ledeQ ate T 

- IN 63486 lede 1 at$ 5 
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- IN 61438 lede Oat6 6 

- IN 57342 le de P at6 Y 

- IN 49150 lede ENTER ate H 

- IN 32766 le de SPACE ate B 

(Estes endere?os sao 254 + 256 * (255 - 2 n ), com n variando de 0 a 7). 

No byte lido, os bits DO a D4 se associam as cinco teclas daquela meia linha - 
sendo DO associado a tecla mais externa e D4 associado a tecla mais pr6xima ao 
meio do teclado. O bit sera 0 se a tecla foi pressionada, elem caso contrario. D6 e 
o valor no soquete EAR traseiro. 

A porta de endere?o 254, com rela^o a saidas, dirige o som de safda pela te- 
ve (D4), e o soquete MIC traseiro (D3), e tambem muda as cores da borda da tela 
(D2, Dl, DO). 

A porta de enderego 251 dirige a impressora conectada no slot traseiro, tanto 
em leitura quanto em escrita, ou seja, sabendo se a impressora terminou ou n2o a 
mensagem enviada. 

As portas de endere 9 o 254, 247 e 239 sao usadas para perifericos, como mi¬ 
crodrives, interfaces seriais etc. 

A porta de endere 9 o 63 e usada para sintetizadores de voz (nem todos — sao 
caracteristicas de cada um). 


Experimente o programa: 

10 FORx = 0 TO 7 

20 LET m = 254 + 256 * (255 - 2 X ) 

30 PRINT AT 0,0; IN m: GOTO 30 

E va pressionando as teclas para saber os valores respectivos de cada uma. Nao 
6 preciso anotar, porem confira com o quadro a seguir os valores correspondent's a 
cada uma delas, e se houver diferenga (6 normal), anote-a. Quando completar a digi- 
ta 9 §o de cada meia linha, pressione BREAK e de, em modo direto, NEXT x, para 
passar para outra meia linha. 

O programa a seguir, de desenho livre, onde se “pega a caneta” do computa- 
dor, 6 um grande exemplo do emprego do comando IN, permitindo que voce pres¬ 
sione mais de uma tecla ao mesmo tempo. Experimente e divirta-se. (Repare na ve- 
locidade.) 


TABELA DE ENDERE f AMENTO DO TECLADO 




IN 63496 

IN 61438 

1 

2 

3 

4 

5 

6 

7 

8 

9 


0 

62 

61 

59 

55 

47 

47 

55 

59 

61 


62 


IN 64510 

IN 57342 

Q 

W 

E 

R 

T 

Y 

U 

I 

O 


P 

62 

61 

_ 

59 

—_ 

55 

47 

47 

___i 


59 

61 


62 

IN 65022 

IN 49150 

A 

S 

D 

F 

G 

H 

J 

K 

L 


ENTER 

62 

61 

59 

55 

47 

47 

55 

59 

61 


62 


IN 65278 

IN 32766 

CAPS 








SYMBOL 


SHIFT 

Z 

X 

C 

V 

B 

N 

M 

SHIFT 


SPACE 

62 

61 

59 

55 

47 

47 

55 

59 

61 


62 


Esta tabela funciona da seguinte maneira: 

Suponha que voce tenha uma linha de programa com a seguinte configurate: 

IF aS = “s” THEN... 

ou entao 

PAUSE 0: IF INKEYS - V THEN. .. 

Substituindo por endere 9 amento de teclado: 

IF IN 65022=61 THEN... 

O que agiliza o seu programa, torna a resposta mais rapida que os comandos 
anteriores, e permite que dois ou mais comandos sejam acionados ao mesmo tempo. 

O programa seguinte exempliflca muito bem isso. 

Mas, devido as pequenas diferen 9 as existentes entre o ZX Spectrum da Sin¬ 
clair e o TK 90X, o programa tanto serve para um quanto para outro. 

E, nas listagens dos programas seguintes, se por acaso encontrar um comando 
BEEP, substitua-o pelo comando SOUND; ambos sao identicos. O problema e que 
este TK 90X nao aceitou a impressora ALPHACOM 32 coneetada junto com a In- 
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terface One e o Microdrive. Nao se preocupe: o micro e nacional, e os perifericos 
sSo importados; num conjunto totalmente nacional isso nao ira ocorrer. (Esse e pro- 
vavelmente um problema da fonte do micro, que nao esta dimensionada para supor- 
tar todos esses perifSricos juntos.) 

Programa “Desenhando” 



189 THEN 

INK 2 


180 IF 

IN 5 3 4- 8 S = b 9 0 H 

IN 

18/ iHtN 

INK 3 


190 IF 

IN 63486=55 OR 

IN 

183 THEN 

INK 4 


908 IF 

IN 53486=47 OR 

IN 

175 THEN 

INK 5 


210 IF 

iN 61438=4/ OR 

IN 

175 THEN 

INK 6 


220 IF 

IN 51438=55 OR 

IN 

183 THEN 

1 M K 


230 15 

IN 51435=59 OR 

TN 

187 THEN 

BRIGHT 1 


240 IF 
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IN 
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290 IF 

IN 4 0 1 F n F: J fj O 

-pr-.i 

18 9 THE N 

00 SUB~ 50 © 
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187) - UN 53022 = 39 OH IN SROaP = i ; =: 
7 l~ <IN_J527S=S5 OR IN 65278=103) 



183) - (IN 65278=47 OR IN 85278=1.7 
RJ-fIN 32765=47 OR IN 32766=175) 
348 Li j X =x -f (x <0) - (x >255) ■ L£7 

y = y + 'y_<0) - • y > 175) 

175 THEN RETURN - ’ ”” ~ 
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Algo sobre os comandos in e out 


83 


550 IP IN 55022=52 DR IN 55022= 
190 THEN INPUT 5S RfC 0 " ; a : DRRU X 
2-X .U 2-M .P 1 /a: RETURN 
570 IF IN 54510=51 OR IN 54510= 
189 THEN PLOT X2,y2: DR RU X-x2,0 
: DRRU 0 , y -y 2 : DRRU -X 4-X 2,0: DRR 
g Q.-4+U2: RETURN 
580 IP IN 54510=52 OR IN 54510= 
1 : ^0 i H tz N D R H W X —x s d — y : c. ! U r®: N 

590 GO TO 510 
9000 FOR i=0 TO 24 
9010 RizRD a : POKb 5400O4i >8 
9020 NEXT i 

y0b0 L-'H i H b , Xyj=! , 17,0 , w4- , o , si«=:b® , 
35,197,1,31;0;25,237,175,43,119, 
0 : 35 .. 35,19,193,15,240,201 
9040 FOR i=0 TO 24 
9050 RERD h: FOKti 5b0804i,b 


9050 
9070 
b , 4 b 





Descr^ao do programa: 

Na linha 1, a RAMTOP foi puxada para 63999, liberando a area posterior pa¬ 
ra entrada e armazenamento de codigos. 

Na linha 30 e piotado um ponto, na posi^ao 128,87. 

Nas linhas 40 e 50 sao as condicionantes que incrementam on decrementam 
as coordenadas do ponto, e na linha 60 esses valores sao ajustados em fun 9 ao dos li- 
mites da resolu 9 ao grafica do micro. 

Na linha 70 sao impressos, na parte inferior do video, os valores correntes de 
X e Y. 

Da linha 80 ate a 310 sao as teclas condicionantes da posi 9 ao do ponto pio¬ 
tado. 


As teclas que movem o ponto sao as que se situam ao red or da tecla F, da se- 
guinte maneira: 

E R T (movimento em diagonal ascendente a direita) 

V t ^ 

P) p q (movimento a direita) 

C V B 


Os outros comandos do programa sao: 

Linha 80 - tecla N — aciona modo OVER 1, para apagar ponto; 

Linha 90 — tecla X - roda o programa outra vez - apaga tudo; 

Linha 100 — tecla M - aciona modo INVERSE 1; 

Linha 110 — tecla I — aciona modo OVER 0 e INVERSE 0; 

Linha 120 — tecla P — muda cor do papel; " 

Linha 130 — tecla H — pergunta raio de cfrculo e tra 9 a-o; 

Linha 140 — tecla K — apaga cfrculo desenhado (so se houver); 

Linha 150 - tecla O - entra em modo OVER 0 e INVERSE 0; 

Linha 160 ate 240 — muda cores de tintas e aciona BRIGHT 1; 

Linha 260 — tecla F — tra 9 a segmentos radiais de reta; 

Linha 270 — tecla S — grava desenho — modiflque-o para fita cassete; 

Linha 280 — tecla J — carrega desenho — modifique-o para fita cassete; 

Linha 290 - tecla L — chama sub-rotina de piscar ponto (sem desenhar), a 
partir da linha 500;. 

Linha 300 — tecla CAPS SHIFT - chama sub-rotina em linguagem de maqui- 
na, armazenada a partir do endere 90 64000 e move toda a tela para a esquer- 
da (e o chamado scroll lateral); 

Linha 310 — tecla SPACE — faz o scroll lateral para a direita, a partir da roti- 
na em linguagem de maquina que come 9 a no endere 90 65000; e 

Linha 320 — Retorna para plotar o ponto na nova posi 9 ao. 


Na sub-rotina da linha 500 ate 590, mova o ponto, sem desenhar, e, atraves da 
tecla A, trace um arco de circunferencia; da tecla W, trace um retangulo entre a po- 
si 9 ao anterior e a nova; da tecla Q, una os dois pontos, com um segmento de reta; e 
da tecla Y, retorne da sub-rotina sem fazer nada. 

Da linha 9000 ate a linha 9080 estao os codigos em valores decimais que signi¬ 
ficant, para o micro, as duas rotinas de scroll lateral, tanto para a direita quanto pa¬ 
ra a esquerda. Voce pode perfeitamente introduzir estas rotinas em seu proprios 
programas. 




Capftulo V 


DIFERENQAS ENTRE 0 TK 85 E 0 TK 90X 


Houve uma evolu 9 ao muito grande entre o TK 83 e o TK 85, principalmente 
em rela^ao a aparencia, ja que surgiu um teclado, e o gabinete mudou de aparencia. 

Quanto ao hardware, a ROM do TK 85 recebeu 2K adicionais armazenando as 
rotinas referentes ao armazenamento r&pido em fita e a RAM tambem cresceu, e 
muito. 

No TK 90X, as altera$Oes foram muitas e boas, a comegar pelo teclado, aspec- 
tp de maior crftica, do ZX Spectrum, dada a sua lentidao, na digita 9 ao de textos, e 
nao na programa 9 ao (eu particularmente nao acho — me acostumei com ele). 

Sem considerar as rotinas de armazenamento rapido em fita cassete, residen- 
tes nos 2K adicionais da ROM original do TK 85, as duas versoes de Basic oferecidas 
por essas duas maquinas sao muito semelhantes. E, dependendo do caso, alguns pro- 
gramas de um podem servir para o outro (mas nao ser carregado diretamente). O TK 
85 possui apenas dois comandos que o TK 90X nao tern, que sao SCROLL e 
UNPLOT, mas existe uma serie de comandos e funfDes do TK 90X que nao sao en- 
cqntrados no TK 85. Essa listagem esta na tabela 4, a seguir. Os asteriscos nessa ta- 
bela indicam quais comandos e fin^Qes nao sao facilmente traduzidos para a lingua- 
gem Basic do TK 85, Os comandos de cor e som podem ser omitidos, mas com rela- 
9 ao a alta resolu 9 ao e comandos de entrada e saida de arquivos existem op 9 oes. 

0 cpmando PLOT aparece em ambos os micros, mas seu efeito e um pouco 
diferente, portantp cuidado! Outra diferen9a fundamental e com rela 9 ao a PEEK e 
POKE, pois os endere 9 amentos sao completamente diferentes. 

0 comando USR “A” do TK 90X nao tern similar no TK 85; ele deve ser omi- 
tido dos programas a serem convertidos. 
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Diferengas entre o TK 85 e o TK 90X 


85 


TABELA 

- Conversao do TK 85 para o TK 90X 

TK 85 

TK 90X 

Comen tarios 

SCROLL 

RAND USR 3582 ou 

LET r= USR 3582 

No TK 90X, este coman¬ 
do faz o SCROLL de 
uma linha de cada vez. 

PLOT X, Y 

PRINT AT 21-X/2, Y/2; 

Imprime o caractere gra- 
fico padrao do TK 90X 
(teclas 1 a 8). 

UNPLOT X, Y 

PRINT OVER 1; AT 

21-X/2, y/2 

Sobrepoe um caractere 
! grafico padrao, apagando 
o anterior. 


TABELA 

2 - Conversao do TK 90X para o TK 85 

TK 90X 

TK 85 

Comentarios 

BIN 

LET x= BIN 

0I00I001 

LET x - valor decimal 

BIN permite a represen- 
ta 9 ao binaria de um nu- 
mero, em caracteres gra- 
ficos definidos pelo usua- 
rio. 

READ/DATA/RESTORE 
READ x,y 

DATA 11,22 

LET 

LET x = 11 

LET y = 22 


DEF FN e FN 

DEF FN a(x) = SQR x 

LET y = FN a(z) 

LET aS = “SQR x” 

LET x = p 

LET y = VAL a$ 

0 equivalente a FN ne- 
cessita de pelo menos 
duas linhas de programa. 

PLOT 

Nao tern equivalente 

A resolu 9 ao grafica do 
TK 85 e baixa 

SCREENS 

LET m = SCREENS x,y 

LET m = PEEK (PEEK 

16396 + 256 * PEEK 

16397 + 1 +Y + 33 * X) 
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TABELA 3 — Conversoes generalizadas 


Comentarios 


1- QUAD 
POKE 16436,255 
POKE 16437,255 
LET t = (65535 -PEEK 
16436-256 * PEEK 
16437)/60 


2- Numero da primeira 
linha = zero 
POKE 16510,0 


TVCOUNT 

POKE 23672,0: POKE 23673, 
0: POKE 23674,0 
LET t = (PEEK 23672 + 256 
* PEEK 23673 + 65536 * 
PEEK 23674)/60 


POKE 23756,0 (sem altera$ao 
da RAM original, isto e, sem 
perifericos) 


3- RAMTOP 
POKE 16388, X-256 
* INT (X/256) 

POKE 16389, INT(X/256) 




TABELA 4 — Fun?6es ou comandos do TK 90X nao dispomveis no TK 85 



FORMAT 

* 

INK 

* 

INVERSE 


MERGE 

* 

MOVE 

* 

OPEN 

* 

OUT 

* 

PAPER 

* 

READ 


RESTORE 

* 

VERIFY 

* 



Diferengas entre o TK 85 e o TK 90X 
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TABELA 5 - Conversoes de variaveis de sistema 


TK 85 


NOME 


CALREG 


BANCO 


ENCAR 


CORDX 


CORDY 


DEST 


POSPR 


DFILE 


DFSZ 


ELINE 


CODR 


LPC 


ENSP 


BAND 


BANDX 


QUAD 


ULTK 


HARG 


MEM 


MEMBO 


MODO 


PXLN 


VCPB 


CPB 


PRBUFF 


PRCC 


RTP 


SEMT 


COLPR 


LINPR 


PILFUN 


PILFIM 


LTOP 


LENCA 


SXEN 


VARS 


VERSN 


ENSX 


ENDEREQO 


16414 


16443 


16406 


16438 


16398 


16396 


16418 


16404 


16384 


16394 


16386 


16385 


16429 


16436 


16421 


16424 


16415 


16477 


16390 


16425 


16427 


16391 


16444 


16440 


16388 


16434 


16410 



16432 


16400 


16393 


16408 


TK 90X 


NOME 


BREGCAL 


CHNXADD 


LSTPLOT 


COORDS 


XVARADD 


DFPSPRT 


SIZE 


INADD 


ERRCD 


CURLINE 


PERR 


SFLAG 0 


SFLAG3 


TVCOUNT 


KEYPRS 


MEMCADD 


MEMSPCAL 


CURSOR 


NEXEXC 


CONTJMP 


EXCLINE 


PRTADD 


RAMTOP 


INITRND 


HVPOS 


STKCEND 


ADSPFREE 


LISTNR 


STRVRLEN 


SYTADD 


VARADD 


SYCHADD 


ENDEREQO 


23655 _ 

Sem equivalente 


23645 

23677 

23678 

3629 _ 

23684 _ 

Sem equivalente 


23659 


23641 


23610 


23625 


23613 


23611 


23665 


23672 


23560 


Sem equivalente 


23656 


23698 


23617 


23637 


23662 



23689 


23651 


23653 


23660 


23666 


23668 


23627 


Sem equivalente 


23647 






























































































































Capftulo VI 


AS CORES PELO TECLADO 


Apesar de tudo o que ja foi dito tanto no manual quanto neste livro sobre 
como se obter cores para INK e PAPER, ou como entrar em modo FLASH ou 
BRIGHT, existe outra maneira de se colorir mensagens, graficos criados pelo usua- 
rio, ou texto; atraves de codigos que sao obtidos pressionando-se diretamente certas 
teclas. 

Por exemplo, para se digitar uma linha de programa, que seja com INK 1 e 
PAPER 1, deve-se fazer o seguinte: 

1- Digite o numero da linha; 

2- Entre em modo extended (cursor E), pressionando CAPS SHIFT junto 
com SYMBOL SHIFT; 

3- Pressione a tecla 1 — pronto! Voce ja obteve papel azul; 

4- Pressione novamente CAPS SHIFT (ainda em modo extended) e outra vez 
a tecla 1 - e voce passara a escrever com tinta azul, ou seja, com a tinta da mesma 
cor que o papel, para que, por exemplo, nenhum pirata tenha acesso ao seu copy¬ 
right da primeira linha do programa. 

Essa seqiiencia de comandos vale para qualquer tecla de 1 a 7, referentes &s 

cores. 

A tecla 8 pode tanto desligar o FLASH quanto o BRIGHT, dependendo de 
qual tecla voce pressionar antes dela. 

A tecla 9, ao contrario da 8, pode tanto ligar o FLASH quanto o BRIGHT. 
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SHIFT TECLAS 


As cores pelo teclado 
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QUADRO - RESUMO DAS FUNgOES DAS TECLAS 1 ATE 0 
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E, para a tecla 0, valem as observances sobre as teclas de cores. 

Portanto, nessa primeira fileira de teclas, de 1 a 0, cada uma delas pode ter ate 
oito funfSes (nao ha teclado mais inteligente do que este), dependendo somente do 
modo em que se encontra o computador naquele momento, e, principalmente, da 
sua pratica com o teclado. 

Veja na pagina anterior um quadro ilustrativo dos diversos modos de se utili- 
zar essas teclas, que por omissao, creio eu, nao foi publicado no manual do TK 90X. 


Capitulo VII 


O MODO GRAFICO DO TK 90X 


Voce ja deve ter notado que este micro nao possui pagina grafica de alta reso- 

lu$ao. 

Otimo. Porque essa pagina grafica de alta resolufao e apenas uma area da me- 
moria RAM reservada estritamente para desenhos e ela nfo se mistura com textos. 

No TK 90X, em Basic mesmo, pode-se misturar texto e desenhos, como qui- 
ser. Nao ha necessidade de dar nenhuma instrugSo especial, para entrar e sair de 
qualquer modo grafico. E uma grande vantagem desta maquina. 

Mas, a operafSo de desenhar um ponto na tela apresenta algumas diferenfas 
do modo de impressffo de textos. 

Um comaiido PRINT AT 0,0 imprime uma mensagem, ou um caractere na 
primeira linha do video, ou seja a linha de topo (a primeira superior). Voce sabe que 
existem 22 linhas dispom'veis para texto, come?ando em zero e terminando em 21. 
Mas, se quiser mais duas linhas, lembre-se das variaveis de sistema. Basta dar POKE 
23659,0 que voce some com a parte inferior da tela - tome cuidado, pois estas li¬ 
nhas da parte inferior obrigatoriamente devem existir antes de um comando INPUT, 
por exemplo, ou antes de ser impressa uma mensagem Id (ate mesmo SCROLL?) 

Ja com o comando PLOT, ou outro comando de desenho, ocorre o inverse. 

Um comando PLOT 0,0 desenha um ponto no canto inferior esquerdo do vi¬ 
deo. Um PLOT 255,0 desenha um ponto no canto inferior direito, enquanto PLOT 
175,0 desenha um ponto no canto superior esquerdo da tela e PLOT 255,175 d@se- 
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COLUNAS-» £1*14 191,159 
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DISPOSI^AO DOS ELEMENTOS DO VfoEO DO TK 90X 


COORDENADAS Y 



COOROENAOAS . 


O modo grafico do TK 90X 93 

nha um ponto no canto superior direito da tela. Lembre-se de que a capacidade grd- 
fica do TK 90X e de 256 pontos na horizontal (eixo X), e 175 pontos na vertical 
(eixo Y). Portanto, em computa^o graflca neste micro, o eixo Y tem sentido inver- 
so a maneira de formatar comandos de safda de textos. 

Observe, pela tabela da pagina anterior, a orienta^o das posi^es grdflcas para 
deseriho na tela, bem como das posi 50 es de impressao de textos, que o ajudara na 
hora de converter graficos em textos (coordenadas), e vice-versa. 

Por exemplo, voce desenha, atraves de PLOT e DRAW um retangulo na tela, e 
quer escrever alguma palavra bem no centro desse retangulo. Se os lados desse retan¬ 
gulo forem X e Y, teremos: 

PRINT ATX/8,(175-Y)/8;”. 

Note a inversao do sentido do eixo Y. 
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Capftulo VIII 


PROGRAMAS 


Neste capftulo, voce encontrard diversos programas, tanto aplicativos ou utili¬ 
ties quanto jogos de lazer, que visam demonstrar todo o pontencial do TK 90X. 

Todas as tecnicas de digita^o possfveis no TK 90X foram utilizadas, inclusive 
as citadas no capftulo VI. 

Voce vai notar, atravds dos jogos aqui listados, a grande diferen^a entre este 
micro, e o seu irm3o mais velho, o TK 85. Naquele, n2o 6 possfvel elaborar-se um 
“arcade game” em Basic, dada a sua lentidao. Neste 6 perfeitamente possfvel, visto 
que a sua velocidade de processamento, mesmo em Basic, 6 muito superior. 

A utiliza^o de um microcomputador como este n£o tern limite. Digite os 
programas a seguir, procure entende-los, passo a passo, modifique-os, “personali- 
ze-os”, mas nSo pare aqui. Estes programas sfo alguns poucos exemplos da capaci- 
dade da maquina, principalmente em fun^o das necessidades de quern o utiliza. 

Va em frente! Comece a elaborar seus proprios programas, sem medo algum 
de errar, pois isso e a coisa mais normal no inundo dos programadores. 

Existem diversos metodos de programa?ao, como o diagrama de flux os, mas o 
melhor deles, na minha opiniao, e aquele em que nos pensamos como o micro, ou 
seja, escrevemos o programa, n£o ainda em Basic, mas a sua seqiiencia, aresolu?ao 
do seu algoritmo, sempre objetivando aquele resultado planejado, para depois sim 
ser traduzido para a linguagem de computador. 
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Boa divers^o! 

NOTA: Todos os programas que requeiram algum movimento utilizam somente as 
teclas chamadas de “cursoras”, que s2o: 

“5” - movimenta para a esquerda 

“8” - movimenta para a direita 

“6” — movimenta para baixo 

“7” - movimenta para cima 

“0” — atirar. 

1) DEMONSTRATIVOS 

Programa "Demonstrapao de Bola"__ 

Este programa e um demonstrative da capacidade da linguagem Basic do TK 
90X. Atraves das rotinas a partir da linha 9000, ele faz tanto SCROLL, a esquerda, 
quanto SCROLL, a direita, rotinas que se pode empregar em qualquer programa 
Basic. 

A tftulo de curiosidade, compare estes codigos, em linguagem de maquina, 
com os codigos do programa “DESENHANDO”, e veja as difere^as. 

A seguir, duas telas do programa rotfando, mostrando o movimento dabola. 
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Programa "Demonstrate) Graf lea"________ 

Sao tres pequenos programas, que ta^am graficos e desenhos em cores alea- 
torias na tela. 

Tente localizar as rotinas de desenho, alterando alguns dados, em comandos 
PLOT ou DRAW. 

Repare, no programa numero tres, o emprego de variaveis de sistema que ar-, 
mazenam as coordenadas do ultimo ponto plotado. 
































100 Basic A vangado para o TK 90X 



2 ) JOGOS 

Programa "Alunissagem"_ 

Muito cuidado com o solo lunar, que e basicamente areia! 

Nao bata nas montanhas, pois isso desintegrara a sua nave espacial. 
Aterrisse exatamente na base, senffo sua nave estara totalmente destrui'da 
Resumindo, esse e o objetivo deste jogo muito simpatico. 

Experimente. 



Programas 
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cricn 00 \'0 i- :i P 00 
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Programa "Aquario" ______ 

Neste jogo, o objetivo e destruir o maior numero possivel de sapos, cobras 
e peixes, que estao passando na sua frente, na agua. 


h* in i o 
ro rn 01 


Program as 
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Interrompa o programa, quando estiver jogando, e procure entende-lo; tente 
modifica-lo, introduzindo novos caracteres graficos, ou entao possibilitando um no¬ 
vo movimento a sua base (para cima). 

Quanto mais peixes e cobras destruir, mais pontos voce obtera, e talvez ate ga- 
nhe b6nus! Mas, cuidado com o seu total em muni?ao. 
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Programas 
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Programa "Aran has"_ 

Neste jogo, voce e a aranha - aparece k esquerda do video —, que deve comer 
o maior numero possivel de moscas que vao-se aproximando. Atraves de movimen- 
tos para cima e para baixo, a aranha captura as moscas, mas cuidado que o tempo 
estd passando. 
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Programs "Asteroides"______ 

Voce e uma nave solitaria, navegando pelo universe infmito, quando, de re- 
pente, surge a sua frente uma chuva de asteroides. Desvie-se deles, atraves das teclas 
“5” (para a esquerda) e “8” (para a direita), e, se estiverem muito proximos, acione 
o seu campo de defesa eletromagnetico, com a tecla “0”. 

Analise o programs, e veja na linha 50 uma outra forma de tirar partido da 16- 
gica-padrao do micro (verdadeiro/falso). 

Analise tambem a linha 405, onde consta uma op9ao para gravar o jogo. De 
proposito esta faltando uma linha, que executa essa condigao. Digite-a. 

Se quiser alterar as cores-padrao deste jogo, tome cuidado, por que ele esta 
baseado no comando ATTR (linha, coluna). 
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Programa "Balde"--- 

0 objetivo deste jogo consiste em captar o maior numero de pingos de agua 
que estao caindo da parede, dentro do seu balde, atraves dos movimentos com as te- 
clas “5” e “8”. Voce tem no total, 99 pingos para encher o balde. Quando ouvir um 
som na teve, significa bonus no placar. 

Vale para a linha 100 deste programa o mesmo comentario da linha 50 do 
programa anterior. 

0 programa come 9 a chamando as sub-rotinas das linhas 8000 e 9000. 

Na sub-rotiaa que inicia na linha 8000 sao feitas as inicializa 90 es das variaveis, 
e a chamada para a sub-rotina que come 9 a na linha 7000, onde e feita a impress^o 
da parede. 

Na sub-rotina que inicia na hnha 9000, sao criados os caracteres graficos, re- 
tornando a estrutura principal do programa, da linha 46 ate 210. 
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Programa "Blackjack" _____ __ __ 

Este e o conhecido jogo de cartas “21”, onde voce deve totalizar, com as car¬ 
tas que tem na mao, 21 pontos. Se por acaso conseguir esse total com apenas duas 
cartas, entao voce fez um “Blackjack”, e ganha em dobro o que apostou. 

O TK 90X e muito bom, e de infcio, deu-lhe um credito de Cr S 100. 

A sub-rotina da linha 8000 define os quatro naipes do barallio. 

Cada carta e desenhada atraves da sub-rotina que come 9 a na linha 8500. 

Existem 13 cartas disponfveis, mas a solu 9 ao empregada neste programa foi a 
de pegar na ROM a estrutura-padrao de cada caractere a ser impresso no video, e 
ent^o amplia-lo duas vezes, tanto na largura quanto na altura, para ser armazenado 
no grupo de caracteres graficos A B G D. Como n£o existe um caractere-padrfo para 
o numero 10, o caractere grdflco E foi reservado para esse proposito. 

Como nos ja vimos no imcio deste livro, para ser impresso, cada caractere 
consome 8 bytes, e a definigSo standard para este grupo de bytes esta armazenada 
na ROM, come 9 ando no ender ©90 15360. Portanto, o endere 9 o de infcio de cada 
caractere na ROM pode ser determinado pela formula: 

15360 + 8. * codigo do caractere (linha 9020) 

Na linha 270, voce devera notar uma nota 9 ao estranha: 
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270 LET a = p(i) = 11 

No programa, a variavel a 6 usada para armazenar o numero de AZ que existe 
em cada mao. 0 significado desta linha e: 

i 

LET a = 0 

IF p(i) = 11 THEN LET a = 1 
uma outra forma de tirar partido da logica do micro. 

Div irta-se. 
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Programs "Bola" _ ______ 

Aten$ao: Mo deixe a bola bater nem no chffo nem do seu lado, pois assim 
voc6 perde uma chance. 

0 objetivo deste jogo consiste em rebater a bola o maior numero de vezes 
possivel, para acumular pontos. 

Repare que a bola “se achata” quando bate em superficies horizontais, e “se 
alonga”, quando bate em superficies verticais. 

Foram definidos apenas quatro caracteres graficos para este programs. 



u;i »£i q id- to uj i.o u;i c» co to •*- o:* r ■:» on 
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Programs "Coiecionador de Ovos" ___ 

Mais um jogo interessante, onde voce e um colecionador de ovos, que deve 
apanhar a maior quantidade de ovos rarissimos que aparecem na tela, tomando o 
cuidado para n£o ser atingido pelos terriveis raios laser que sffo disparados de bases 
fixas. 

Para apanhar os ovos, voce deve dirigir-se ate a base que os sustenta, onde est£ 
marcado um “X”, leva-los ate a potato inferior da tela, nos locais vazios, e, da mes- 
ma forma que os apanhou, deposita-los tambem por baixo da prateleira, onde esta 
indicado um 

As teclas de movimento sao as mesmas que em qualquer outro programs deste 
livro, ou seja, as teclas cursoras (5 - 6 - 7 - 8). 



i cn id cn cn i::n cn hi cn cn cn cn hi cn ni cn on cn x cn cn cn o co cn cn cn cn cn cn ro z ro ro ro ro • -l ro ro ro ro ro x id ro r hi 
i ID O >0 CO 0 ) CO 0 CO “ J - .J J ID J XI CTi 0101 H ot 0 cr» • ■ * 0 0 0 0 0 0 CO CO CO 01 CO CO H CO 0 0 07” 0 O CO CO • 
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9515 IF SC > hi THEN LET h i =s c 
3520 FOR p = 1 TO 31: BEEP : 01 ; p■ 
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Programa "Defesa aerea"___ 

Aqui, voce e um exfmio piloto de um caga, que deve impedir, de todas as ma- 
neiras possfveis, que exterminadores alienfgenas cheguem a Terra, destruindo tudo 
que estiver na superffcie. 

Alem de tomar cuidado com as bombas que sao langadas contra seu aviao, vo¬ 
ce nao deve encosta-lo nem no limite superior da tela nem na superffcie terrestre, 
pois aos poucos voce acaba com ele dessa maneira. 

Atraves das teclas cursoras de movimento para cima e para baixo (6 - 7), au- 
mente ou diminua a altitude de seu aviao, e, com a tecla 0, dispare raios mortais 
contra os exterminadores, destruindo-os. 

Repare na rotina, escrita em linguagem de maquina, que faz o SCROLL late¬ 
ral da imagem, com 36 bytes de comprimento, na declaragao DATA da linha 3000. 

O que esta rotina faz e mudar de posigao lateralmente cada linha da tela, em 
alta resolugao, isto e, o caractere que estava na posigao 0,1, passara para a posigao 
0,0, daf para 0, 31 e assim por diante. 

A rotina executa o mesmo procedimento com os atributos da tela. 

Observe nas linhas 140 e 150 os comandos POKE desta rotina. Se quiser utili- 
za-la em outro programa, com outros dnderegos, basta alterar os dados destas linhas, 
e nao e necessario que voce entenda de linguagem de maquina. Se tiver curiosidade, 
anote os bytes da linha DATA, e, atraves do Apendice D, do manual da maquina, 
veja o significado das instrugoes em linguagem de maquina. E muito mais complica- 
do, mas tambem muito mais fascinante! 

A listagem possui algumas linhas escritas com cores diretamente do teclado. 
Sao elas: 

5120 PRINT OVER 1; AT bx, by; “esp GRA J”; ATnx, by; “EXT SHI 2 esp 

gra r 
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5270 IF ax = sx AND ay > sy + 4 AND ay < 30 THEN FOR k = 1 TO 11: 
SOUND .1,5: PRINT OVER 1; AT ax, ay - 1; “esp GRA D GRA E”: NEXT k: 
LET ax = INT (15 * RND): LET ay = 29: PRINT AT ax, ay -1; “ EXT SHI 4 
esp GRAD GRA E” EXT SHIP: LET sc = sc+ 100 

5280 IF bx = sx AND by > sy + 4 AND by < 30 THEN FOR k = 1 TO 5: 
SOUND .1,10: PRINT OVER 1; AT bx, by; “EXT SHI 2 esp GRA J": NEXT 
k: LET bx = 1 + INT (RND * 14): LET by = 30: PRINT AT bx, by; “EXT 
SHI 2 esp GRA J” EXT SHI P: LET sc = sc + 20 

5350 PRINT OVER 1; AT ax, ay; “esp GRA D GRA E”; AT nx, ny; “EXT 
SHI 4 esp GRA D GRA E” EXT SHI 0 

7000 IF ABS (bx-ax) < = 1 AND ABS (by-ay) < = 1 THEN FOR k = 1 TO 
11: SOUD .1,5: PRINT OVER 1; AT ax, ay; “esp GRA D GRA E”: NEXT k: 
LET ax = INT (15 * RND): LET ay = 29: PRINT AT ax, ay; “ EXT SHI 4 
GRA D GRA E” EXT SHI 0 


7020 PRINT OVER 1; AT ax, ay; “esp GRA D GRA E”; AT ax-1, ay; “ EXT 
SHI 4 esp GRA D GRA E” EXT SHI 0 

7070 PRINT OVER 1; AT sx, sy-1; “esp GRA F GRA G GRA H GRA I”; AT 
sx, sy; “EXT SHI 6 esp GRA F GRA G GRA H GRA I” EXT SHI 0 

7145 LET ay = ay + 1: PRINT OVER 1; AT ax, ay-1; “esp GRA D GRA E’’; 
AT ax, ay; “EXT SHI 4 esp GRA D GRA E” EXT SHI P 

7300 PRINT OVER 1; AT sx, sy-1; “esp GRA F GRA G GRA H GRA I”; AT 
sx, sy; “EXT SHI 6 esp GRA F GRA G GRA H GRA I” EXT SHI 0 

8560 PRINT OVER 1; AT sx, sy-1; “esp EXT SHI 6 GRA F GRA G GRA H 
GRA r EXT SHI 0: SOUND k/50, 12-2 *k: NEXT k 

8710 PRINT OVER 1; AT sx, sy-1; “esp EXT SHI 6 GRA F GRA G GRA H 
GRA I” EXT SHI 0: SOUND ,1,15-2 *k:'NEXTk 


A legenda utilizada signiflca: 

esp — pular um espago - existem outras linhas na listagem do programa onde 
tambem se deve pular um espago* 

GRA - utilizar modo grafico (cursor em G) 

EXT - utilizar modo extended (cursor em E) 

SHI — pressionar a tecla CAPS SHIFT 
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Programs "Freeway"_____ 

Faga de conta que voce e o pequeno homem que aparece na tela, tentando de- 
sesperadamente atravessar esta avenida muito movimentada. Nao se esque9a que 
voce pode tentar atravessar ou desistir, ou seja, voltar para a Canada. 

Analise a rotina do programs, e veja que soh^Ses inteligentes para a sensagao 
de movimento da tela. 
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Programa "Invasores"______ 

Aqui esta a versSo, para o TK 90X, do famoso “arcade game” denominado 
“Os invasores”, conhecido mundialmente por ser um dos primeiros jogos de agao 
para computadores. 

Voce vai notar nitidamente, aqui, a veiocidade do processamento em Basic. 

Digite o programa, e a medida que for destruindo os Invasores, note que a ve¬ 
iocidade ira nrogressivamente aumentando. 
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Mais uma vez sugiro que tente alterar o jogo, modificando comandos como 
SOUND (nesta listagem = BEEP), ou comandos de cores relativas a papel e tinta, 01 
atd as linhas DATA de cria 9 ao dos caracteres graficos (acompanhe com UDG 2). 

A listagem: 



















































































130 


Basic A vanrado para o TK 90X 



Neste jogo muito conhecido, voce n2o deve, em hipotese alguma, deixar que 
nenhum invasor aterrisse. 

Tome cuidado, pois nem sempre eles descem na vertical... 
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Outro belo jogo, envolvendo caracteres graficos que simulam o movimento de 
cavalos correndo. 

Apos sua digita 9 ao, voce deve apenas seguir as orienta 9 oes e perguntas da tela, 
para que passe alguns momentos neste “Joquei”. 
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Programs "Monstros Voadores"___ 

Neste jogo, voce e o unico defensor da estagao espacial. Eis que, de repente, 
surgem sobre voce alguns monstros voadores, tentando acerta-lo com bombas de 
poder mortffero. Voce tambdm deve atirar seu raio laser mortal, para se defender. 
Nao e tarefa diffcil. 

Este e mais um magnifico jogo em linguagem Basic, demonstrando a incrxvel 
capacidade deste micro. 

Atengao para a digitagao das seguintes linhas: 

180 FOR i = USR “ GRA A” TO USR “ GRA A” + 167 

290 PRINT “esp EOT SHI 2 GRA C GRA D esp esp” 

330 PRINT “EXT SHI 4 GRA A EXT SHI 2 GRA E GRA F EXT SHI 4 GRA 
B esp” 

510 PRINT AT v, g; “esp EOT SHI 2 GRA Q GRA R GRA S esp”; AT y, x; 
“esp esp esp esp”; AT y + Ipc; “esp esp esp esp” 

540 PRINT AT y, x; “EST SHI 0 GRA G EOT SHI 1 GRA C GRA D EOT 
SHI 0 GRA H”; AT v + 1 jc : “GRA I EXT SHI 1 GRA E GRA F EXT SHI 0 
GRA J” ~ .. 

570.AT i -1, x -1; “ GRA T GRA U”:... 

660 PRINT AT v,g; “esp EOT SHI 2 GRA Q GRA R GRA S esp”; AT y,x; 
“esp esp esp esp”; AT y + lpc; “esp esp esp esp” 

690 PRINT AT y,x; “ EXT SHI 0 GRA K EXT SHI 1 GRA C GRA D EXT 
SHI 0 GRA L”; AT y - 1 pc; “GRAM EXT SHI 1 GRA E GRA F EXT SHI 0 
GRA N” 


720... AT i + 1. x + 1:“GRA T GRAU”... 

1010 PRINT AT y-lpc; “esp esp esp esp”; AT ypc; “EOT SHI 2 GRA 0 EOT 
SHI 6 GRA 0 GRA D EXT SHI 2 GRA P EXT SHI 0”; AT y + 1 pc; “esp EXT 
SHI 6 GRA E GRA F EXT SHI 0 esp” 

1300 PRINT AT v, g + 1; “GRA Q GRA R GRAS”; OVER l;ATv,x + l; 
“GRA T GRA U”: FOR i = 1 TO 11: SOUND .1, -10:PRINT OVER 1; AT 
v, g; “esp GRA Q GRA R GRA S”: SOUND .02,4: NEXT i 

1420 PRINT ATv.g + 1; “EXT SHI 2 GRA Q GRA R GRA S”; OVER 1; AT 
y + 1, x, “EXT SHI 0 GRA G EXT SHI 1 GRA C GRA D EXT SHI 0 GRA 
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H”; AT y + 2, x; “ EXT SHI 1 GRA I GRA E GRA F GRA J”: FOR i - 1 TO 
11: SOUND .1,10: PRINT OVER 1; AT v, g; “EXT SHI esp GRA Q GRA R 
GRA S”: SOUND .02,4: NEXT i 

Os sfmbolos acima querem dizer o seguinte: 

- esp — pular um esp ago 

— EXT — inserir em modo extended 

- SHI — apertar tambem CAPS SHIFT 

— GRA — inserir em modo graflco 
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Programa "Xadrez"____ 

Este programa permite que voce jogue xadrez com o computation Tome cui- 
dado, porque ele e urn grande jogador, mas terrivelmente lento. 

Os caracteres graficos sao muito bonitos, e, como alternativa, voce pode alte- 
rar o programa, no sentido de que duas pessoas joguem xadrez. A escolha e sua. 

Este programa e urn exemplo excelente do que e possivel fazer com o TK 
90X, ja que xadrez e considerado urn jogo muito dificil para computadores, dada 
sua logica. Ainda mais considerando-se a linguagem Basic, e suas limita^Qes perante 
a linguagem de maquina (velocidade de processamento principaimente). 

Uma unica nota: seja honesto em suas jogadas, porque o programa nao verifi- 
ca se a sua jogada e ou 11 S 0 permitida. Arme-se de uma boa dose de paciencia, e en- 
frente a “fera”. 

Os caracteres graficos: 
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i .. y +dy *c 

13 = fa 

( X 

, y 3 : L 

ET b< X , y ) = 

‘Lf 





5010 LET f 

* = 

Si ‘ ! : PGR 

r =1 

TO 

6: PO 

R j =1 TO S 


; p-T* ^ = r 4 

(r . .1 

, 1 

3 : LET 

d 2 =d c r . t .j . t 

2 ) 

: LET I. = 

1 



5020 IP ax 

+ d 

1*1<1 OR 

a x + 

d 1 

± L > d u 

R ay+d2*l< 

1 

u h a y-f d 2 

£ t > d 

T 

HEN GO 

TO 5050 






5030 IF fs 

i 

HMD d 2 <■ 1 

RND 

H 

=0 THE 

N GO TO 50 

50 




5040 IP bC 

a v 

+dl*l ,au 

H- j*i H- 

L 3 

--r TH 

EH LET f$= 

55 1 

i! : GO TO 

587 

0 


5050 IP r> 


H N D r < 5 

RND 

D l 

a X id It 

t, ay+d 2*t ) 

= 0 

i n m n l.1 z 

T l = 

l + 

1 : GO 

TO 582 & 
5050 NEXT 


NEXT r 




5070 IP X > 

8 

THEN GO 

Tfi R 

39 

0 

5080 LET b 

(X 

. y ) = b (x + 

dXtC 

1 

y id y ir c 

1L J : L_bi i tj l 

X -i 

u x f c 1 .i y t 

d y c 

13 

rzp 

b 0 5 0 Ht 1 L* H 

N 






3) UTILiTARSOS 


Programa "'Agenda Telefonica"---- 

Este programa, da maneira como esta list ado a seguir, serve para armazeriar 
ate 100 nomes, endere 9 os, telefones, CEP, cidade e bairro, mas e o tfpico programa 
que eu costumo chamar de multiuso, pois basta modificar o nome das matrizes, pa¬ 
ra dar-lhe outra utilizagao (por exemplo, catalogo de discos, de livros, de filmes 
etc.). 

Procure determinar qual o limite da memoria de seu micro, para dimensiona- 
mento maximo das matrizes. 

Voce pode armazenar essas matrizes, atraves de SAVE “nome” DATA x$( ), 
vantagem que nem todo Basic possui. 

Se voce esqueceu o telefone e o enderego de um amigo, basta digitar no micro 
o nome dessa pessoa, que ele lhe mostrara todos os dados armazenados sobre aquela 
pessoa. 

Experimente criar uma rotina, para classificar em ordem, por exemplo, alfabe- 
tica, os nomes das pessoas (voce n£o vai digitar necessariamente em ordem alfabeti- 
ca), fazendo-o comparar os itens, dois a dois, em ordem crescente e decrescente, e 
substituindo a ordem quando for necessario. 


Programas 


147 



































150 Basic A vangado para o TK 90X 



Programs "Ampfia^ao"___________—*-- 

Programa auto-explicativo, onde se deve digitar alguma palavra com no maxi- 
mo 16 caracteres, para que o micro possa amplia-la ate sete vezes. 
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“ ; a $ 

180 PRINT RiT 13,2;a* 

118 INPUT “Digits o numero para 
amp liacao “n : PRINT hT I5,2.;n 
128 PRINT ttl;AT 0,8;“Pressione 
qualquer tec la 11 : PAUSE, 0 

; BORDER 1; INK 9: CLS : PRINT H 


T 0., 0 

-3 $ 


130 

FOR x =0 TO nch*es 

-1 

14-8 

FOR y =175 TO 168 

STEP -1 

150 

LET Z=175-y 


160 

IF POINT iX,y) =1 

THEN GO SU 

B 300 


170 

NEXT y 


180 

NEXT x 


190 

INPUT "Outra ffien 

sagem is/n? 

t “T \ 

c dp i a 55 ; 


288 

IF b$ = "S " THEN R 

UN 

210 

190 

228 

IF b$="Z ” THEN C 

NEW 

DRY : GO TO 

388 

FOR C=0 TO n-i 


31S 

FOP. d =0 TO n-1 


320 

PLOT INK 7n*x + c 

, 175- (38-f d -f 

z *n) 



3 3 0 

NFXT d 


348 

NEXT C 



RETURN 



Programa d© - —-— . .. — . . ————— ■ 

Este programa utiliza o historic© de vendas de uma empresa por urn determi- 
nado numero de anos, para mostrar as flutuag6es ocorridas, bem como as tenden- 
cias detectadas no peri'odo. 

Os resultados deste programa podem ser muito uteis para qualquer empresa 
de vendas cujas atividades sejam afetadas por peri'odos anuais (as chamadas estagSes 
do ano e do programa). 

As informagOes necessarias para que o programa rode sSo os valores das ven¬ 
das por estagao anual, de cada ano do peri'odo determinado pelo usuario (o progra- 
ma aceita um periodo maximo de 18 anos). 

Apos a entrada das informagSes, o programa calculara a proporgao de cada es- 
tagSo, pela divisao das vendas atuais pela media obtida entre as estagSes de todos os 
anos medidos. 

0 programa tambem traga um grafico contfnuo das vendas anuais da empresa, 
permitindo uma imediata visualizagao das informagOes sobre as vendas naquele pe- 
riodo. 


Alistagem: 
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1 REM * RNRLISE DE UENDRS * 

2 RtM + + + + + + + ■*■ + * + + . 

3 REM .JOSE EDUARDO MRLUF DE 

CRRURLHO RRQUITRQN 

4- RtM 

110 REM indice por PeTiodo 
120 BORDER 7: PRPER 7: INK 1: 
LR5H 0: OUER 0: CLS 
130 GO TO SO00 
1000 REM 

1010 REM 'entrade de dado=- 
1020 PRINT RT 0., 9.; INUERSE 1;": 
dice por p e rio d o“ 

1030 PRINT RT 4-. 0 ; "Hi s to r i rn At 
v e n d a s " 

1040 PRINT RT 7/6;"DO ano " 

1050 H RIN ! H! 10■6i "R0 8 n n " 

1060 PRINT RT 7,i7; FLASH 1; H 
ERSt 1.; " > rLRSH 0; INK 2; : 

VERSE 1;" 

1070 INPUT £$: LET yi=INT (URL 
$3 : is- yl<1900 OR LEN (STR* uli 
4 THtN GO TO 1070 
1030 PRINT RT 7.17:" ":yl 
1090_PRINT RT 10,17; FLRSH 1; ' 

UERSt 1; •’* > FLRSH 0; INK P: ' 

NUERSE 1.;" " ’ • 

1100_INPUT E$: LET y2 = INT CURL 
$3 l p IF_y2<1900 OR LEN (STR$ u£) 


1110 

PR Ip 

iT RT 10,17 

1120 

L_ tZ i 

ny =y2-y l-i-l 

1130 

DIM 

y $ i n y <s 4 3 

1140 

DIM 

h $ c n y , 4,4 3 

1150 

DIM 

a $ C n y , 7 3 

1160 

DIM 

r$i n y,4:63 

1170 

DIM 

d $ ( 4,5 3 

1172 

DIM 

q (4) 

1174 

DIM 

c (n y 3 

1150 

DIM 

c C n y 3 

1130 

DIM 

c (n y) 

1200 

for 

i =y 1 i 0 y 2 


Atoo r uk i =y i iu Mel: i_ET y $ M - u 1 
+ 13 =STR$ i : NEXT I " 

2000 REM 

2010 REM entrada de vendas 
2020 OLS : PRINT RT 0,10 ; ~ INIJEPS 
E 1;"His torico de vendas" 

2030 print ri 1 , 2 s; inuerse i;“r 

UR , " ; RT 2,0.; INUERSE 1; "RNO " ; RT 
2,5.1 INUERSE 1; "EST1" : RT 2,10V ' 
INUtRSt 1;"tS!2";RT 2,15: INUEPS 
£ l; "ESTS".; RT 2,20; INUERSE 1;“E 
s I 4 •.; hj_ 2, 26.; INUERSE 1; " UENDRS " 
2040 11- hm=l THEN GO TO 2500 
2050 i - OR i =1 i0 ny 

2060 LtT in = i+3-1■ PRINT RT in.© 
; y 4 C i 3 '" 
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Programa "Avaliagao de Patrimdnio" __ 

Programa financeiro que auxilia as pessoas na itemizagSo e avaliagJo de seu 
patrimonio pessoal. Esta avaliagjTo e util em casos, por exemplo, de cobertura de 
apolices de seguros. Pode ser utdizada tambem para despesas de capital, em peque- 
nas empresas. 

Cada item do patrimonio e avaliado pelo seu custo original, valor de revenda e 
custo atualizado. 

0 valor de revenda e calculado com base na depreciagffo conforme tempo de 
vida, e o custo e atualizado de acordo com a inflagao especificada. 

O numero maxim o de itens e 100. 

Note-se que todos os valores manipulados pelo programa sao arredondados, e 
serSfo sempre numeros inteiros. 

Alistagem: 
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Programs "Calendario Permanente"______ 

Programs muito util, que lhe da o calendario do mes bem como a diferenga 
entre duas datas e que dia da semana caira a data que voce digitar. 

0 algoritmo do programs e um pouco complicado; fica aqui, como “ligao de 
casa”, o entendimento dele. (N&o e t2o complicado - simplesmente esta baseado 
numa unica formula de conversao de datas - encontre-a no programs.) 

Mas o programs esta de proposito “sujo” ou seja existem diversas linhas inu- 
teis. E um bom exercfcio a tentativa de “limpa-lo’\ 

Existe uma matriz que nao serve para nada.. . 

A sub-rotina que comega na linha 5000 e a que explica o funcionamento do 
programa. 

A sub-rotina da linha 3700 e a de definigao de matrizes. .. 

As sub-rotinas das linhas 1000 e 1500 sao iguais e armazenam datas, mas exe- 
cutam tarefas diferentes. 

As sub-rotinas das linhas 2000 e 3000 fazem os calculos das datas propria- 
mente ditos, para serem mostrados na tela. 



o oj o.\ ai cu cu cu ai cu cm oj o.i *: 
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Programs "Carregador de Cddigos de Maquina"-— 

Este e um programa utilitario, para aqueles que desejam iniciar em linguagem 
de maquina. 
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Ele pergunta a partir de que endere ? o voce vai armazenar os codigos, para, em 
de^OOs 088 ^^ 1 ^ 3 entr3da d6SSeS C6di8 ° S 6 S6U posterior ar mazenamento, atraves 

Se errar um codigo, digite “s” para interromper entrada de dados, anote o seu 
erro, e remicie o programa, atraves de GOTO, e nffo RUN. 

Compare o conteudo da linha 1000 com os c6digos do Apendice D do Manual. 



Programa "Deleta Blocos de Linhas"_ 

Este programa Simula o comando da linguagem Basic Applesoft, denominado 
JJEL x,y, que deleta as linhas x at 6 y, inclusive. 

0 emprego deste programa 6 interessante, e deve ser feito apos o outro pro- 
grama deste livro, o “RENUMERADOR DE LINHAS”. Voce esta digitando o iu 

» 6 qUW Uma nUmera?5 ° de linhas mais ad ®quada. Atraves do co¬ 
mando MERGE , carregue o renumerador de linhas, acione-o, e, de posse da nova 
numeraearo, novamente com o comando MERGE” ”, carregue este programa para 
deletar as linhas muteis. E um programa utilitario muito interessante. 
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Convem que se grave o programa apos um primeiro cancelamento de linhas, 
para que, no caso de cancelar linhas erradas, voce possa chama-las de volta para o 
computador. 



: : d 3 -f H j s h 4 - 
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Programa "Folha de Pagamentos" _ - 

Este e outro programa utilitario deste capftulo do livro. 

Ele tem capacidade de armazenar dados sobre funcionarios de empresa, cujo 
numero esta limitado apenas a capacidade de memoria do micro (ultrapassa 300 
funcionarios). A versao original do programa esta limitada a 50 funcionarios, mas 
dependendo da sua necessidade, amplie-a a vontade, que o micro acusa ate quanto 
ele agiientara. 

Existe a possibilidade, tambem, de se emitir automaticamente contracheques 
para os funcionarios. 

NOTAS: 

Os detalhes sobre funcionarios em uma matriz esta:o estruturados da seguinte 
forma: 

- primeira grava 9 ao - numero de funcionarios contidos na matriz; 

— grava 9 oes seguintes - custo/hora de cada funcionario. 

Iistagem do programa: 
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Programs "Histogramas enm Tr§s D’lmensoes" _—_—— 

Neste programa utilitario, voce Simula histogramas, ou graficos de barras (ma- 
ximo 25 ) tridimensionais, atraves da utiliza$ao dos caracteres graficos definidos pe» 
lo usuario A e B. 
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Programs "Mudanpa de Tipos de Caracteres" 

Observe a listagem abaixo, e veja como os caracteres do micro estao diferentes 
em relate aos anteriores. 
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Se quiser saber como fazer isso, digite este pequeno programa auto-explicati- 
vo que ele lhe mostrara os truques necessarios. 


POKE 23607 =250 

Para obter es t es caracteres 



m 

60 IP rasa < >16 PND ran <>4a i HtN 
GO TO 53 

70 CLS : PAINT PT 19,6;'= Rguar 
de 2 minutos Novos 

caracteres estao sends 

gerados" 

60 IF rasi = 16 THEN LET C =31466 

30 IP ram=48 THEN LET C=64300 
100 REM *333*333*333333333*3*3 
110 FOR n = C TO C41024: LET b=FE 


EK a: POKE n ,b 
120 IF b/4=INT 

£b/4 i 

THEN 

POKE 

FI ! bic 

las if 

b/8=iN5 

ih/Bi 

THEN 

POKE 


n f b*4 


140 IF 

by16=INT 

Cbv 161 

THEN. 

PGK 

E 

150 IF 

E n * h4in 

fay32=INT 

CbyOSl 

THEN 

POK 

,160 IF 

b/64=2NT 

its 641 

THEN 

POK 


E n, h462 


170 IF b=6fci_ 8 HtN_HtiKt Fs,b432 

180 it- b=U I HtN PUKE ii ,a_ 

190 LET 3=3*1 : NEK i Fs: ttttP . 1 * 
25 

200 HtM 333333333333333333*3=3= 
210 CLS : POKE iiSbU /, C/eiS 
220 PRINT FLs-ibH 1;fii 2 ,h;“P uKfc 
23607 . 5 : C 7255 

230 PRINT FLPSH 1; Para obter e 
stes caracteres 
240 POKE 23607,60 

250 PRINT PT 8 ,S;“FtKt aaufl/, 6 
0 “ 

260 PRINT '“Para retornar aos c 
a racteres no rms x s ^ _ __ 

270 PRINT PT 14' £ U£.‘;uravar:tHUt 
nouie uuDtr 1S .; c; " * 103*4’“ 

pj_ r-.j | !a gdQr§£ d3T Nizf-i = ft!3Pi X 0 Fi 
.-I ~B “ ”3 .-| ■= g }*£ ;-j r SQ i S d 3 H P 1*1 T OP :: 


Programa "Processador de Texto"--- 

Este e outro programa utilitario, que permite a criagffo de documentos, cartas 

etc. 

Se o seu micro tiver 16K de RAM, voce tera espago para criar ate quatro pagi- 
nas de texto. Mas se tiver 48K de RAM, pode-se armazenar ate 35 paginas. 

Assim que se roda o programa, aparece na tela um menu de opgSes. 

Selecione primeiramente a opgao 6, para dimensionar quantas paginas voce 
vai necessitar. A opgao 8 transforma o teclado do seu micro em uma maquina de es- 
crever. Para apagar algum caractere, digite CAPS SHIFT e uma tecla cursora (5 - 6 - 
7 - 8), para que o cursor intermitente fique sobre o caractere a apagar. Para mudar 
o cursor de posigffo, utilize o mesmo metodo. 

Assim que voce preencher essa pagina, ela entao deve ser copiada em alguma 
daquelas paginas dimensionadas anteriormente, atraves da opgao 3. Estas paginas 
tambem podem ser gravadas em fita cassete ou impressas. Usando a opgao de remo¬ 
ver espagos, nao havera mais espagos entre as paginas consecutivas. 

Com a opgao 7, pode-se utilizar qualquer simbolo do teclado, como por exem- 
plo os simbolos graficos. 

Voce pode tambem limpar o conteudo de apenas uma pagina, ou de todas. 
Basta digitar a opgao desejada, e o numero da pagina a apagar. 
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Outras furies especiais, acessadas atraves de CAPS SHIFT: 

Tecla 1 — EDIT — abre um espa^o a direita do cursor, no texto; 
Tecla 0 - DELETE - remove espa 9 os do texto, ou apaga palavras; 
Tecla 3 - TRUE VIDEO - move o texto uma linha para baixo; 
Tecla 4 - INVERSE VIDEO - move o texto uma linha para cima. 
A listagem: 
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Programs "Relogio do TK 90X"_ 

Este programs Simula um relogio, muito bem ajustado, que possui ate alarme. 

Digite o programs e de RUN. 

A seguir, deve-se dizer a hora, entre 0 e 23, os minutos e os segundos. 0 pro- 
grama checa a validade do dado digitado. 

Se quiser alarme, repete-se o processo anterior. 

Se quiser experimentar e aproveitar a garantia do seu micro, rode o programs 
antes de dormir, e ligue o alarme, para a sua hora de despertar; Mo se esque£a de li- 
gar apenas um alto-falante na saida do seu micro (a teve ligada a noite inteira e um 
alarme muito caro). 



9U & NT05 SEGUNDOS? 
(0 - 59) 

23 _ 

UUEh: I_ L li H R H L_ H K T i lz ' 

(5 o U N 3 
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Se ele estiver atrasando ou adiantando, ajuste o valor de tl, na linha 140, au- 
mentando-o ou diminuindo-o, dependendo do caso. 



150 
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Programs "Renumerador de Linhas" _________ 

Este e outro programa utilitario, que Simula o comando de Basic Applesoft, 
AUTO, numerando automaticamente as linhas do programa, a partir do numero 10. 

Mas, atenfSo: ele nSo numera de forma automatica os comandos GOTO e 
GOSUB, mas mostra na tela as linhas que contenham estes comandos, para facilitar 
a alterafao numerica posterior manual. 



NSo se esquefa de conferir atentamente os codigos do programa, pois apenas 
um errado p3e ttido a perder. 



Programa "Scroll Lento"____ 

Esta pequena rotina de codigos de maquinas tern um efeito muito interessan- 
te, similar a apresenta^o de filmes que utilizam letreiros de apresenta 9 ao da ficha 
tecnica e que fazem aquelas letras subirem a tela, como SCROLL, so que mais lenta- 
mente. 

Digite esta rotina, de um endere?o inicial, por exemplo, 65000, se o seu micro 
tiver 48K RAM. 

Em seguida, faja um pequeno programa, como por exemplo: 

10 PRINT AT 21,10; “O nome” 

20 PAUSE 0: IF INKEYS = “P” THEN RAND USR 65000 

E veja que efeito maravilhoso obtera, apos digitar a linha 30 GOTO 20 



i ES DE U5HH 1:5 it cXthHLO = 


NOTE QUE 0 ENDERECO IHICIRL PEDI 

O iJ *“■' tZ. bJ r - ' W *_* U W H H ■ tZ bJ» » 11 j 1-4» 4—1 

55400, COHPORHE LINHP 18 R SE 
GUIR 


10 r U K r = 1 i U 10; 
12;“ TK 90X “;: FOR 
hNDOHIZE USR 55480: 


PRINT RT 21: 
9=1 TO 20: R 
NcX I 9 : NnX i 


20 


GO 
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